<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-pragma">{-# LANGUAGE Trustworthy #-}</span><span>
</span><span id="line-2"></span><span class="hs-pragma">{-# LANGUAGE CPP, NoImplicitPrelude, BangPatterns, StandaloneDeriving,
             MagicHash, UnboxedTuples #-}</span><span>
</span><span id="line-4"></span><span class="hs-pragma">{-# OPTIONS_HADDOCK not-home #-}</span><span class="hs-cpp">

#include &quot;MachDeps.h&quot;
</span><span class="hs-cpp">#if SIZEOF_HSWORD == 4
</span><span class="hs-cpp">#define DIGITS       9
</span><span class="hs-cpp">#define BASE         1000000000
</span><span class="hs-cpp">#elif SIZEOF_HSWORD == 8
</span><span class="hs-cpp">#define DIGITS       18
</span><span class="hs-cpp">#define BASE         1000000000000000000
</span><span class="hs-cpp">#else
</span><span class="hs-cpp">#error Please define DIGITS and BASE
</span><span class="hs-comment">-- DIGITS should be the largest integer such that</span><span>
</span><span id="line-16"></span><span class="hs-comment">--     10^DIGITS &lt; 2^(SIZEOF_HSWORD * 8 - 1)</span><span>
</span><span id="line-17"></span><span class="hs-comment">-- BASE should be 10^DIGITS. Note that ^ is not available yet.</span><span class="hs-cpp">
#endif
</span><span>
</span><span id="line-20"></span><span class="hs-comment">-----------------------------------------------------------------------------</span><span>
</span><span id="line-21"></span><span class="hs-comment">-- |</span><span>
</span><span id="line-22"></span><span class="hs-comment">-- Module      :  GHC.Show</span><span>
</span><span id="line-23"></span><span class="hs-comment">-- Copyright   :  (c) The University of Glasgow, 1992-2002</span><span>
</span><span id="line-24"></span><span class="hs-comment">-- License     :  see libraries/base/LICENSE</span><span>
</span><span id="line-25"></span><span class="hs-comment">--</span><span>
</span><span id="line-26"></span><span class="hs-comment">-- Maintainer  :  cvs-ghc@haskell.org</span><span>
</span><span id="line-27"></span><span class="hs-comment">-- Stability   :  internal</span><span>
</span><span id="line-28"></span><span class="hs-comment">-- Portability :  non-portable (GHC Extensions)</span><span>
</span><span id="line-29"></span><span class="hs-comment">--</span><span>
</span><span id="line-30"></span><span class="hs-comment">-- The 'Show' class, and related operations.</span><span>
</span><span id="line-31"></span><span class="hs-comment">--</span><span>
</span><span id="line-32"></span><span class="hs-comment">-----------------------------------------------------------------------------</span><span>
</span><span id="line-33"></span><span>
</span><span id="line-34"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">GHC.Show</span><span>
</span><span id="line-35"></span><span>        </span><span class="hs-special">(</span><span>
</span><span id="line-36"></span><span>        </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier">Show</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier">ShowS</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-37"></span><span>
</span><span id="line-38"></span><span>        </span><span class="hs-comment">-- Instances for Show: (), [], Bool, Ordering, Int, Char</span><span>
</span><span id="line-39"></span><span>
</span><span id="line-40"></span><span>        </span><span class="hs-comment">-- Show support code</span><span>
</span><span id="line-41"></span><span>        </span><span class="annot"><a href="GHC.Show.html#shows"><span class="hs-identifier">shows</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#showChar"><span class="hs-identifier">showChar</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#showString"><span class="hs-identifier">showString</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#showMultiLineString"><span class="hs-identifier">showMultiLineString</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-42"></span><span>        </span><span class="annot"><a href="GHC.Show.html#showParen"><span class="hs-identifier">showParen</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#showList__"><span class="hs-identifier">showList__</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#showCommaSpace"><span class="hs-identifier">showCommaSpace</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#showSpace"><span class="hs-identifier">showSpace</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-43"></span><span>        </span><span class="annot"><a href="GHC.Show.html#showLitChar"><span class="hs-identifier">showLitChar</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#showLitString"><span class="hs-identifier">showLitString</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#protectEsc"><span class="hs-identifier">protectEsc</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-44"></span><span>        </span><span class="annot"><a href="GHC.Show.html#intToDigit"><span class="hs-identifier">intToDigit</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#showSignedInt"><span class="hs-identifier">showSignedInt</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-45"></span><span>        </span><span class="annot"><a href="GHC.Show.html#appPrec"><span class="hs-identifier">appPrec</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#appPrec1"><span class="hs-identifier">appPrec1</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-46"></span><span>
</span><span id="line-47"></span><span>        </span><span class="hs-comment">-- Character operations</span><span>
</span><span id="line-48"></span><span>        </span><span class="annot"><a href="GHC.Show.html#asciiTab"><span class="hs-identifier">asciiTab</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-49"></span><span>  </span><span class="hs-special">)</span><span>
</span><span id="line-50"></span><span>        </span><span class="hs-keyword">where</span><span>
</span><span id="line-51"></span><span>
</span><span id="line-52"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.Base.html"><span class="hs-identifier">GHC.Base</span></a></span><span>
</span><span id="line-53"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.List.html"><span class="hs-identifier">GHC.List</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.List.html#%21%21"><span class="hs-operator">(!!)</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.List.html#foldr1"><span class="hs-identifier">foldr1</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.List.html#break"><span class="hs-identifier">break</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-54"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.Num.html"><span class="hs-identifier">GHC.Num</span></a></span><span>
</span><span id="line-55"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.Stack.Types.html"><span class="hs-identifier">GHC.Stack.Types</span></a></span><span>
</span><span id="line-56"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Tuple.html#"><span class="hs-identifier">GHC.Tuple</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Tuple.html#Solo"><span class="hs-identifier">Solo</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-57"></span><span>
</span><span id="line-58"></span><span>
</span><span id="line-59"></span><span class="hs-comment">-- | The @shows@ functions return a function that prepends the</span><span>
</span><span id="line-60"></span><span class="hs-comment">-- output 'String' to an existing 'String'.  This allows constant-time</span><span>
</span><span id="line-61"></span><span class="hs-comment">-- concatenation of results using function composition.</span><span>
</span><span id="line-62"></span><span class="hs-keyword">type</span><span> </span><span id="ShowS"><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-var">ShowS</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-63"></span><span>
</span><span id="line-64"></span><span class="hs-comment">-- | Conversion of values to readable 'String's.</span><span>
</span><span id="line-65"></span><span class="hs-comment">--</span><span>
</span><span id="line-66"></span><span class="hs-comment">-- Derived instances of 'Show' have the following properties, which</span><span>
</span><span id="line-67"></span><span class="hs-comment">-- are compatible with derived instances of 'Text.Read.Read':</span><span>
</span><span id="line-68"></span><span class="hs-comment">--</span><span>
</span><span id="line-69"></span><span class="hs-comment">-- * The result of 'show' is a syntactically correct Haskell</span><span>
</span><span id="line-70"></span><span class="hs-comment">--   expression containing only constants, given the fixity</span><span>
</span><span id="line-71"></span><span class="hs-comment">--   declarations in force at the point where the type is declared.</span><span>
</span><span id="line-72"></span><span class="hs-comment">--   It contains only the constructor names defined in the data type,</span><span>
</span><span id="line-73"></span><span class="hs-comment">--   parentheses, and spaces.  When labelled constructor fields are</span><span>
</span><span id="line-74"></span><span class="hs-comment">--   used, braces, commas, field names, and equal signs are also used.</span><span>
</span><span id="line-75"></span><span class="hs-comment">--</span><span>
</span><span id="line-76"></span><span class="hs-comment">-- * If the constructor is defined to be an infix operator, then</span><span>
</span><span id="line-77"></span><span class="hs-comment">--   'showsPrec' will produce infix applications of the constructor.</span><span>
</span><span id="line-78"></span><span class="hs-comment">--</span><span>
</span><span id="line-79"></span><span class="hs-comment">-- * the representation will be enclosed in parentheses if the</span><span>
</span><span id="line-80"></span><span class="hs-comment">--   precedence of the top-level constructor in @x@ is less than @d@</span><span>
</span><span id="line-81"></span><span class="hs-comment">--   (associativity is ignored).  Thus, if @d@ is @0@ then the result</span><span>
</span><span id="line-82"></span><span class="hs-comment">--   is never surrounded in parentheses; if @d@ is @11@ it is always</span><span>
</span><span id="line-83"></span><span class="hs-comment">--   surrounded in parentheses, unless it is an atomic expression.</span><span>
</span><span id="line-84"></span><span class="hs-comment">--</span><span>
</span><span id="line-85"></span><span class="hs-comment">-- * If the constructor is defined using record syntax, then 'show'</span><span>
</span><span id="line-86"></span><span class="hs-comment">--   will produce the record-syntax form, with the fields given in the</span><span>
</span><span id="line-87"></span><span class="hs-comment">--   same order as the original declaration.</span><span>
</span><span id="line-88"></span><span class="hs-comment">--</span><span>
</span><span id="line-89"></span><span class="hs-comment">-- For example, given the declarations</span><span>
</span><span id="line-90"></span><span class="hs-comment">--</span><span>
</span><span id="line-91"></span><span class="hs-comment">-- &gt; infixr 5 :^:</span><span>
</span><span id="line-92"></span><span class="hs-comment">-- &gt; data Tree a =  Leaf a  |  Tree a :^: Tree a</span><span>
</span><span id="line-93"></span><span class="hs-comment">--</span><span>
</span><span id="line-94"></span><span class="hs-comment">-- the derived instance of 'Show' is equivalent to</span><span>
</span><span id="line-95"></span><span class="hs-comment">--</span><span>
</span><span id="line-96"></span><span class="hs-comment">-- &gt; instance (Show a) =&gt; Show (Tree a) where</span><span>
</span><span id="line-97"></span><span class="hs-comment">-- &gt;</span><span>
</span><span id="line-98"></span><span class="hs-comment">-- &gt;        showsPrec d (Leaf m) = showParen (d &gt; app_prec) $</span><span>
</span><span id="line-99"></span><span class="hs-comment">-- &gt;             showString &quot;Leaf &quot; . showsPrec (app_prec+1) m</span><span>
</span><span id="line-100"></span><span class="hs-comment">-- &gt;          where app_prec = 10</span><span>
</span><span id="line-101"></span><span class="hs-comment">-- &gt;</span><span>
</span><span id="line-102"></span><span class="hs-comment">-- &gt;        showsPrec d (u :^: v) = showParen (d &gt; up_prec) $</span><span>
</span><span id="line-103"></span><span class="hs-comment">-- &gt;             showsPrec (up_prec+1) u .</span><span>
</span><span id="line-104"></span><span class="hs-comment">-- &gt;             showString &quot; :^: &quot;      .</span><span>
</span><span id="line-105"></span><span class="hs-comment">-- &gt;             showsPrec (up_prec+1) v</span><span>
</span><span id="line-106"></span><span class="hs-comment">-- &gt;          where up_prec = 5</span><span>
</span><span id="line-107"></span><span class="hs-comment">--</span><span>
</span><span id="line-108"></span><span class="hs-comment">-- Note that right-associativity of @:^:@ is ignored.  For example,</span><span>
</span><span id="line-109"></span><span class="hs-comment">--</span><span>
</span><span id="line-110"></span><span class="hs-comment">-- * @'show' (Leaf 1 :^: Leaf 2 :^: Leaf 3)@ produces the string</span><span>
</span><span id="line-111"></span><span class="hs-comment">--   @\&quot;Leaf 1 :^: (Leaf 2 :^: Leaf 3)\&quot;@.</span><span>
</span><span id="line-112"></span><span>
</span><span id="line-113"></span><span class="hs-keyword">class</span><span>  </span><span id="Show"><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-var">Show</span></a></span></span><span> </span><span id="local-6989586621679485324"><span class="annot"><a href="#local-6989586621679485324"><span class="hs-identifier hs-type">a</span></a></span></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-114"></span><span>    </span><span class="hs-pragma">{-# MINIMAL</span><span> </span><span class="annot"><a href="GHC.Show.html#showsPrec"><span class="hs-pragma hs-type">showsPrec</span></a></span><span> </span><span class="hs-pragma">|</span><span> </span><span class="annot"><a href="GHC.Show.html#show"><span class="hs-pragma hs-type">show</span></a></span><span> </span><span class="hs-pragma">#-}</span><span>
</span><span id="line-115"></span><span>
</span><span id="line-116"></span><span>    </span><span class="hs-comment">-- | Convert a value to a readable 'String'.</span><span>
</span><span id="line-117"></span><span>    </span><span class="hs-comment">--</span><span>
</span><span id="line-118"></span><span>    </span><span class="hs-comment">-- 'showsPrec' should satisfy the law</span><span>
</span><span id="line-119"></span><span>    </span><span class="hs-comment">--</span><span>
</span><span id="line-120"></span><span>    </span><span class="hs-comment">-- &gt; showsPrec d x r ++ s  ==  showsPrec d x (r ++ s)</span><span>
</span><span id="line-121"></span><span>    </span><span class="hs-comment">--</span><span>
</span><span id="line-122"></span><span>    </span><span class="hs-comment">-- Derived instances of 'Text.Read.Read' and 'Show' satisfy the following:</span><span>
</span><span id="line-123"></span><span>    </span><span class="hs-comment">--</span><span>
</span><span id="line-124"></span><span>    </span><span class="hs-comment">-- * @(x,\&quot;\&quot;)@ is an element of</span><span>
</span><span id="line-125"></span><span>    </span><span class="hs-comment">--   @('Text.Read.readsPrec' d ('showsPrec' d x \&quot;\&quot;))@.</span><span>
</span><span id="line-126"></span><span>    </span><span class="hs-comment">--</span><span>
</span><span id="line-127"></span><span>    </span><span class="hs-comment">-- That is, 'Text.Read.readsPrec' parses the string produced by</span><span>
</span><span id="line-128"></span><span>    </span><span class="hs-comment">-- 'showsPrec', and delivers the value that 'showsPrec' started with.</span><span>
</span><span id="line-129"></span><span>
</span><span id="line-130"></span><span>    </span><span id="showsPrec"><span class="annot"><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-type">showsPrec</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Int"><span class="hs-identifier hs-type">Int</span></a></span><span>    </span><span class="hs-comment">-- ^ the operator precedence of the enclosing</span><span>
</span><span id="line-131"></span><span>                        </span><span class="hs-comment">-- context (a number from @0@ to @11@).</span><span>
</span><span id="line-132"></span><span>                        </span><span class="hs-comment">-- Function application has precedence @10@.</span><span>
</span><span id="line-133"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679485324"><span class="hs-identifier hs-type">a</span></a></span><span>      </span><span class="hs-comment">-- ^ the value to be converted to a 'String'</span><span>
</span><span id="line-134"></span><span>              </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-type">ShowS</span></a></span><span>
</span><span id="line-135"></span><span>
</span><span id="line-136"></span><span>    </span><span class="hs-comment">-- | A specialised variant of 'showsPrec', using precedence context</span><span>
</span><span id="line-137"></span><span>    </span><span class="hs-comment">-- zero, and returning an ordinary 'String'.</span><span>
</span><span id="line-138"></span><span>    </span><span id="show"><span class="annot"><a href="GHC.Show.html#show"><span class="hs-identifier hs-type">show</span></a></span></span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679485324"><span class="hs-identifier hs-type">a</span></a></span><span>   </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-139"></span><span>
</span><span id="line-140"></span><span>    </span><span class="hs-comment">-- | The method 'showList' is provided to allow the programmer to</span><span>
</span><span id="line-141"></span><span>    </span><span class="hs-comment">-- give a specialised way of showing lists of values.</span><span>
</span><span id="line-142"></span><span>    </span><span class="hs-comment">-- For example, this is used by the predefined 'Show' instance of</span><span>
</span><span id="line-143"></span><span>    </span><span class="hs-comment">-- the 'Char' type, where values of type 'String' should be shown</span><span>
</span><span id="line-144"></span><span>    </span><span class="hs-comment">-- in double quotes, rather than between square brackets.</span><span>
</span><span id="line-145"></span><span>    </span><span id="showList"><span class="annot"><a href="GHC.Show.html#showList"><span class="hs-identifier hs-type">showList</span></a></span></span><span>  </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="#local-6989586621679485324"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-type">ShowS</span></a></span><span>
</span><span id="line-146"></span><span>
</span><span id="line-147"></span><span>    </span><span id="local-6989586621679484881"><span class="annot"><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679484879"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484879"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span id="local-6989586621679484878"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484878"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">a -&gt; String
forall a. Show a =&gt; a -&gt; String
</span><a href="GHC.Show.html#show"><span class="hs-identifier hs-var">show</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484879"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484878"><span class="hs-identifier hs-var">s</span></a></span></span><span>
</span><span id="line-148"></span><span>    </span><span id="local-6989586621679484877"><span class="annot"><a href="GHC.Show.html#show"><span class="hs-identifier hs-var hs-var">show</span></a></span><span> </span><span id="local-6989586621679484875"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484875"><span class="hs-identifier hs-var">x</span></a></span></span><span>          </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">a -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484875"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;&quot;</span></span></span><span>
</span><span id="line-149"></span><span>    </span><span id="local-6989586621679484874"><span class="annot"><a href="GHC.Show.html#showList"><span class="hs-identifier hs-var hs-var">showList</span></a></span><span> </span><span id="local-6989586621679484872"><span class="annot"><span class="annottext">[a]
</span><a href="#local-6989586621679484872"><span class="hs-identifier hs-var">ls</span></a></span></span><span>   </span><span id="local-6989586621679484871"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484871"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(a -&gt; ShowS) -&gt; [a] -&gt; ShowS
forall a. (a -&gt; ShowS) -&gt; [a] -&gt; ShowS
</span><a href="GHC.Show.html#showList__"><span class="hs-identifier hs-var">showList__</span></a></span><span> </span><span class="annot"><span class="annottext">a -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">[a]
</span><a href="#local-6989586621679484872"><span class="hs-identifier hs-var">ls</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484871"><span class="hs-identifier hs-var">s</span></a></span></span><span>
</span><span id="line-150"></span><span>
</span><span id="line-151"></span><span id="local-6989586621679485320"><span class="annot"><a href="GHC.Show.html#showList__"><span class="hs-identifier hs-type">showList__</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679485320"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-type">ShowS</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span>  </span><span class="hs-special">[</span><span class="annot"><a href="#local-6989586621679485320"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-type">ShowS</span></a></span></span><span>
</span><span id="line-152"></span><span id="showList__"><span class="annot"><span class="annottext">showList__ :: forall a. (a -&gt; ShowS) -&gt; [a] -&gt; ShowS
</span><a href="GHC.Show.html#showList__"><span class="hs-identifier hs-var hs-var">showList__</span></a></span></span><span> </span><span class="annot"><span class="annottext">a -&gt; ShowS
</span><span class="hs-identifier">_</span></span><span>     </span><span class="hs-special">[</span><span class="hs-special">]</span><span>     </span><span id="local-6989586621679484870"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484870"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;[]&quot;</span></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484870"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-153"></span><span class="annot"><a href="GHC.Show.html#showList__"><span class="hs-identifier hs-var">showList__</span></a></span><span> </span><span id="local-6989586621679484869"><span class="annot"><span class="annottext">a -&gt; ShowS
</span><a href="#local-6989586621679484869"><span class="hs-identifier hs-var">showx</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484868"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484868"><span class="hs-identifier hs-var">x</span></a></span></span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-type">:</span></a></span><span id="local-6989586621679484867"><span class="annot"><span class="annottext">[a]
</span><a href="#local-6989586621679484867"><span class="hs-identifier hs-var">xs</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484866"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484866"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'['</span></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">a -&gt; ShowS
</span><a href="#local-6989586621679484869"><span class="hs-identifier hs-var">showx</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484868"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[a] -&gt; String
</span><a href="#local-6989586621679484865"><span class="hs-identifier hs-var">showl</span></a></span><span> </span><span class="annot"><span class="annottext">[a]
</span><a href="#local-6989586621679484867"><span class="hs-identifier hs-var">xs</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-154"></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-155"></span><span>    </span><span id="local-6989586621679484865"><span class="annot"><span class="annottext">showl :: [a] -&gt; String
</span><a href="#local-6989586621679484865"><span class="hs-identifier hs-var hs-var">showl</span></a></span></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">']'</span></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484866"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-156"></span><span>    </span><span class="annot"><a href="#local-6989586621679484865"><span class="hs-identifier hs-var">showl</span></a></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484864"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484864"><span class="hs-identifier hs-var">y</span></a></span></span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-type">:</span></a></span><span id="local-6989586621679484863"><span class="annot"><span class="annottext">[a]
</span><a href="#local-6989586621679484863"><span class="hs-identifier hs-var">ys</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">','</span></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">a -&gt; ShowS
</span><a href="#local-6989586621679484869"><span class="hs-identifier hs-var">showx</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484864"><span class="hs-identifier hs-var">y</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[a] -&gt; String
</span><a href="#local-6989586621679484865"><span class="hs-identifier hs-var">showl</span></a></span><span> </span><span class="annot"><span class="annottext">[a]
</span><a href="#local-6989586621679484863"><span class="hs-identifier hs-var">ys</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-157"></span><span>
</span><span id="line-158"></span><span class="annot"><a href="GHC.Show.html#appPrec"><span class="hs-identifier hs-type">appPrec</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#appPrec1"><span class="hs-identifier hs-type">appPrec1</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Int"><span class="hs-identifier hs-type">Int</span></a></span><span>
</span><span id="line-159"></span><span>        </span><span class="hs-comment">-- Use unboxed stuff because we don't have overloaded numerics yet</span><span>
</span><span id="line-160"></span><span id="appPrec"><span class="annot"><span class="annottext">appPrec :: Int
</span><a href="GHC.Show.html#appPrec"><span class="hs-identifier hs-var hs-var">appPrec</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Int
</span><a href="../../ghc-prim/src/GHC.Types.html#I%23"><span class="hs-identifier hs-var">I#</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><span class="hs-number">10#</span></span><span>        </span><span class="hs-comment">-- Precedence of application:</span><span>
</span><span id="line-161"></span><span>                        </span><span class="hs-comment">--   one more than the maximum operator precedence of 9</span><span>
</span><span id="line-162"></span><span id="appPrec1"><span class="annot"><span class="annottext">appPrec1 :: Int
</span><a href="GHC.Show.html#appPrec1"><span class="hs-identifier hs-var hs-var">appPrec1</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Int
</span><a href="../../ghc-prim/src/GHC.Types.html#I%23"><span class="hs-identifier hs-var">I#</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><span class="hs-number">11#</span></span><span>       </span><span class="hs-comment">-- appPrec + 1</span><span>
</span><span id="line-163"></span><span>
</span><span id="line-164"></span><span class="hs-comment">--------------------------------------------------------------</span><span>
</span><span id="line-165"></span><span class="hs-comment">-- Simple Instances</span><span>
</span><span id="line-166"></span><span class="hs-comment">--------------------------------------------------------------</span><span>
</span><span id="line-167"></span><span>
</span><span id="line-168"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-169"></span><span id="local-6989586621679484857"><span id="local-6989586621679484859"><span id="local-6989586621679484861"><span class="hs-keyword">deriving</span><span> </span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span></span></span></span><span>
</span><span id="line-170"></span><span>
</span><span id="line-171"></span><span class="hs-comment">-- | @since 4.15</span><span>
</span><span id="line-172"></span><span id="local-6989586621679484848"><span id="local-6989586621679484850"><span id="local-6989586621679484854"><span id="local-6989586621679485317"><span class="hs-keyword">deriving</span><span> </span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485317"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Tuple.html#Solo"><span class="hs-identifier hs-type">Solo</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485317"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span></span></span></span></span><span>
</span><span id="line-173"></span><span>
</span><span id="line-174"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-175"></span><span id="local-6989586621679485325"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484843"><span id="local-6989586621679484845"><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485325"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="#local-6989586621679485325"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">]</span></span></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-176"></span><span>  </span><span class="hs-pragma">{-# SPECIALISE</span><span> </span><span class="hs-pragma">instance</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-pragma hs-type">Show</span></a></span><span> </span><span class="hs-pragma">[</span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-pragma hs-type">String</span></a></span><span class="hs-pragma">]</span><span> </span><span class="hs-pragma">#-}</span><span>
</span><span id="line-177"></span><span>  </span><span class="hs-pragma">{-# SPECIALISE</span><span> </span><span class="hs-pragma">instance</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-pragma hs-type">Show</span></a></span><span> </span><span class="hs-pragma">[</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Char"><span class="hs-pragma hs-type">Char</span></a></span><span class="hs-pragma">]</span><span> </span><span class="hs-pragma">#-}</span><span>
</span><span id="line-178"></span><span>  </span><span class="hs-pragma">{-# SPECIALISE</span><span> </span><span class="hs-pragma">instance</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-pragma hs-type">Show</span></a></span><span> </span><span class="hs-pragma">[</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Int"><span class="hs-pragma hs-type">Int</span></a></span><span class="hs-pragma">]</span><span> </span><span class="hs-pragma">#-}</span><span>
</span><span id="line-179"></span><span>  </span><span id="local-6989586621679484841"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; [a] -&gt; ShowS
</span><a href="#local-6989586621679484841"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span>         </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[a] -&gt; ShowS
forall a. Show a =&gt; [a] -&gt; ShowS
</span><a href="GHC.Show.html#showList"><span class="hs-identifier hs-var">showList</span></a></span></span><span>
</span><span id="line-180"></span><span>
</span><span id="line-181"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-182"></span><span id="local-6989586621679484835"><span id="local-6989586621679484837"><span id="local-6989586621679484839"><span class="hs-keyword">deriving</span><span> </span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span></span></span></span><span>
</span><span id="line-183"></span><span>
</span><span id="line-184"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-185"></span><span id="local-6989586621679484829"><span id="local-6989586621679484831"><span id="local-6989586621679484833"><span class="hs-keyword">deriving</span><span> </span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Ordering"><span class="hs-identifier hs-type">Ordering</span></a></span></span></span></span><span>
</span><span id="line-186"></span><span>
</span><span id="line-187"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-188"></span><span class="hs-keyword">instance</span><span>  </span><span id="local-6989586621679484826"><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Char"><span class="hs-identifier hs-type">Char</span></a></span></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-189"></span><span>    </span><span id="local-6989586621679484824"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; Char -&gt; ShowS
</span><a href="#local-6989586621679484824"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\''</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;'\\''&quot;</span></span><span>
</span><span id="line-190"></span><span>    </span><span class="annot"><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679484823"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484823"><span class="hs-identifier hs-var">c</span></a></span></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
</span><a href="GHC.Show.html#showChar"><span class="hs-identifier hs-var">showChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\''</span></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
</span><a href="GHC.Show.html#showLitChar"><span class="hs-identifier hs-var">showLitChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484823"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
</span><a href="GHC.Show.html#showChar"><span class="hs-identifier hs-var">showChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\''</span></span><span>
</span><span id="line-191"></span><span>
</span><span id="line-192"></span><span>    </span><span id="local-6989586621679484821"><span class="annot"><span class="annottext">showList :: String -&gt; ShowS
</span><a href="#local-6989586621679484821"><span class="hs-identifier hs-var hs-var hs-var hs-var">showList</span></a></span></span><span> </span><span id="local-6989586621679484820"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484820"><span class="hs-identifier hs-var">cs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
</span><a href="GHC.Show.html#showChar"><span class="hs-identifier hs-var">showChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'&quot;'</span></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showLitString"><span class="hs-identifier hs-var">showLitString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484820"><span class="hs-identifier hs-var">cs</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
</span><a href="GHC.Show.html#showChar"><span class="hs-identifier hs-var">showChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'&quot;'</span></span><span>
</span><span id="line-193"></span><span>
</span><span id="line-194"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-195"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484815"><span id="local-6989586621679484817"><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Int"><span class="hs-identifier hs-type">Int</span></a></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-196"></span><span>    </span><span id="local-6989586621679484814"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; Int -&gt; ShowS
</span><a href="#local-6989586621679484814"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; ShowS
</span><a href="GHC.Show.html#showSignedInt"><span class="hs-identifier hs-var">showSignedInt</span></a></span><span>
</span><span id="line-197"></span><span>
</span><span id="line-198"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-199"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484809"><span id="local-6989586621679484811"><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Word"><span class="hs-identifier hs-type">Word</span></a></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-200"></span><span>    </span><span id="local-6989586621679484808"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; Word -&gt; ShowS
</span><a href="#local-6989586621679484808"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#W%23"><span class="hs-identifier hs-type">W#</span></a></span><span> </span><span id="local-6989586621679484807"><span class="annot"><span class="annottext">Word#
</span><a href="#local-6989586621679484807"><span class="hs-identifier hs-var">w</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Word# -&gt; ShowS
</span><a href="GHC.Show.html#showWord"><span class="hs-identifier hs-var">showWord</span></a></span><span> </span><span class="annot"><span class="annottext">Word#
</span><a href="#local-6989586621679484807"><span class="hs-identifier hs-var">w</span></a></span><span>
</span><span id="line-201"></span><span>
</span><span id="line-202"></span><span class="annot"><a href="GHC.Show.html#showWord"><span class="hs-identifier hs-type">showWord</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Prim.html#Word%23"><span class="hs-identifier hs-type">Word#</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-type">ShowS</span></a></span><span>
</span><span id="line-203"></span><span id="showWord"><span class="annot"><span class="annottext">showWord :: Word# -&gt; ShowS
</span><a href="GHC.Show.html#showWord"><span class="hs-identifier hs-var hs-var">showWord</span></a></span></span><span> </span><span id="local-6989586621679484805"><span class="annot"><span class="annottext">Word#
</span><a href="#local-6989586621679484805"><span class="hs-identifier hs-var">w#</span></a></span></span><span> </span><span id="local-6989586621679484804"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484804"><span class="hs-identifier hs-var">cs</span></a></span></span><span>
</span><span id="line-204"></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Types.html#isTrue%23"><span class="hs-identifier hs-var">isTrue#</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Word#
</span><a href="#local-6989586621679484805"><span class="hs-identifier hs-var">w#</span></a></span><span> </span><span class="annot"><span class="annottext">Word# -&gt; Word# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#ltWord%23"><span class="hs-operator hs-var">`ltWord#`</span></a></span><span> </span><span class="annot"><span class="annottext">Word#
</span><span class="hs-number">10##</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char# -&gt; Char
</span><a href="../../ghc-prim/src/GHC.Types.html#C%23"><span class="hs-identifier hs-var">C#</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int# -&gt; Char#
</span><a href="../../ghc-prim/src/GHC.Prim.html#chr%23"><span class="hs-identifier hs-var">chr#</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#ord%23"><span class="hs-identifier hs-var">ord#</span></a></span><span> </span><span class="annot"><span class="annottext">Char#
</span><span class="hs-char">'0'#</span></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Int# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#%2B%23"><span class="hs-operator hs-var">+#</span></a></span><span> </span><span class="annot"><span class="annottext">Word# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#word2Int%23"><span class="hs-identifier hs-var">word2Int#</span></a></span><span> </span><span class="annot"><span class="annottext">Word#
</span><a href="#local-6989586621679484805"><span class="hs-identifier hs-var">w#</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484804"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-205"></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Char#
</span><a href="../../ghc-prim/src/GHC.Prim.html#chr%23"><span class="hs-identifier hs-var">chr#</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#ord%23"><span class="hs-identifier hs-var">ord#</span></a></span><span> </span><span class="annot"><span class="annottext">Char#
</span><span class="hs-char">'0'#</span></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Int# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#%2B%23"><span class="hs-operator hs-var">+#</span></a></span><span> </span><span class="annot"><span class="annottext">Word# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#word2Int%23"><span class="hs-identifier hs-var">word2Int#</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Word#
</span><a href="#local-6989586621679484805"><span class="hs-identifier hs-var">w#</span></a></span><span> </span><span class="annot"><span class="annottext">Word# -&gt; Word# -&gt; Word#
</span><a href="../../ghc-prim/src/GHC.Prim.html#remWord%23"><span class="hs-operator hs-var">`remWord#`</span></a></span><span> </span><span class="annot"><span class="annottext">Word#
</span><span class="hs-number">10##</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-206"></span><span>               </span><span id="local-6989586621679484802"><span class="annot"><span class="annottext">Char#
</span><a href="#local-6989586621679484802"><span class="hs-identifier hs-var">c#</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-207"></span><span>                   </span><span class="annot"><span class="annottext">Word# -&gt; ShowS
</span><a href="GHC.Show.html#showWord"><span class="hs-identifier hs-var">showWord</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Word#
</span><a href="#local-6989586621679484805"><span class="hs-identifier hs-var">w#</span></a></span><span> </span><span class="annot"><span class="annottext">Word# -&gt; Word# -&gt; Word#
</span><a href="../../ghc-prim/src/GHC.Prim.html#quotWord%23"><span class="hs-operator hs-var">`quotWord#`</span></a></span><span> </span><span class="annot"><span class="annottext">Word#
</span><span class="hs-number">10##</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char# -&gt; Char
</span><a href="../../ghc-prim/src/GHC.Types.html#C%23"><span class="hs-identifier hs-var">C#</span></a></span><span> </span><span class="annot"><span class="annottext">Char#
</span><a href="#local-6989586621679484802"><span class="hs-identifier hs-var">c#</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484804"><span class="hs-identifier hs-var">cs</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-208"></span><span>
</span><span id="line-209"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-210"></span><span id="local-6989586621679484794"><span id="local-6989586621679484796"><span id="local-6989586621679484800"><span id="local-6989586621679485313"><span class="hs-keyword">deriving</span><span> </span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485313"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485313"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span></span></span></span></span><span>
</span><span id="line-211"></span><span>
</span><span id="line-212"></span><span class="hs-comment">-- | @since 4.11.0.0</span><span>
</span><span id="line-213"></span><span id="local-6989586621679484785"><span id="local-6989586621679484787"><span id="local-6989586621679484792"><span id="local-6989586621679485312"><span class="hs-keyword">deriving</span><span> </span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485312"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Base.html#NonEmpty"><span class="hs-identifier hs-type">NonEmpty</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485312"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span></span></span></span></span><span>
</span><span id="line-214"></span><span>
</span><span id="line-215"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-216"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484780"><span id="local-6989586621679484782"><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#TyCon"><span class="hs-identifier hs-type">TyCon</span></a></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-217"></span><span>  </span><span id="local-6989586621679484778"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; TyCon -&gt; ShowS
</span><a href="#local-6989586621679484778"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span id="local-6989586621679484777"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484777"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#TyCon"><span class="hs-identifier hs-type">TyCon</span></a></span><span> </span><span class="annot"><span class="annottext">Word#
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Word#
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Module
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679484776"><span class="annot"><span class="annottext">TrName
</span><a href="#local-6989586621679484776"><span class="hs-identifier hs-var">tc_name</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int#
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">KindRep
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; TrName -&gt; ShowS
forall a. Show a =&gt; Int -&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484777"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">TrName
</span><a href="#local-6989586621679484776"><span class="hs-identifier hs-var">tc_name</span></a></span><span>
</span><span id="line-218"></span><span>
</span><span id="line-219"></span><span class="hs-comment">-- | @since 4.9.0.0</span><span>
</span><span id="line-220"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484771"><span id="local-6989586621679484773"><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#TrName"><span class="hs-identifier hs-type">TrName</span></a></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-221"></span><span>  </span><span id="local-6989586621679484770"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; TrName -&gt; ShowS
</span><a href="#local-6989586621679484770"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#TrNameS"><span class="hs-identifier hs-type">TrNameS</span></a></span><span> </span><span id="local-6989586621679484769"><span class="annot"><span class="annottext">Addr#
</span><a href="#local-6989586621679484769"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Addr# -&gt; String
</span><a href="../../ghc-prim/src/GHC.CString.html#unpackCStringUtf8%23"><span class="hs-identifier hs-var">unpackCStringUtf8#</span></a></span><span> </span><span class="annot"><span class="annottext">Addr#
</span><a href="#local-6989586621679484769"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-222"></span><span>  </span><span class="annot"><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#TrNameD"><span class="hs-identifier hs-type">TrNameD</span></a></span><span> </span><span id="local-6989586621679484768"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484768"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484768"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-223"></span><span>
</span><span id="line-224"></span><span class="hs-comment">-- | @since 4.9.0.0</span><span>
</span><span id="line-225"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484763"><span id="local-6989586621679484765"><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Module"><span class="hs-identifier hs-type">Module</span></a></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-226"></span><span>  </span><span id="local-6989586621679484760"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; Module -&gt; ShowS
</span><a href="#local-6989586621679484760"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Module"><span class="hs-identifier hs-type">Module</span></a></span><span> </span><span id="local-6989586621679484759"><span class="annot"><span class="annottext">TrName
</span><a href="#local-6989586621679484759"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span id="local-6989586621679484758"><span class="annot"><span class="annottext">TrName
</span><a href="#local-6989586621679484758"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TrName -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">TrName
</span><a href="#local-6989586621679484759"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">':'</span></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">TrName -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">TrName
</span><a href="#local-6989586621679484758"><span class="hs-identifier hs-var">m</span></a></span><span>
</span><span id="line-227"></span><span>
</span><span id="line-228"></span><span class="hs-comment">-- | @since 4.9.0.0</span><span>
</span><span id="line-229"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484753"><span id="local-6989586621679484755"><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="GHC.Stack.Types.html#CallStack"><span class="hs-identifier hs-type">CallStack</span></a></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-230"></span><span>  </span><span id="local-6989586621679484749"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; CallStack -&gt; ShowS
</span><a href="#local-6989586621679484749"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[(String, SrcLoc)] -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">([(String, SrcLoc)] -&gt; ShowS)
-&gt; (CallStack -&gt; [(String, SrcLoc)]) -&gt; CallStack -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">CallStack -&gt; [(String, SrcLoc)]
</span><a href="GHC.Stack.Types.html#getCallStack"><span class="hs-identifier hs-var">getCallStack</span></a></span><span>
</span><span id="line-231"></span><span>
</span><span id="line-232"></span><span class="hs-comment">-- | @since 4.9.0.0</span><span>
</span><span id="line-233"></span><span id="local-6989586621679484734"><span id="local-6989586621679484736"><span id="local-6989586621679484746"><span class="hs-keyword">deriving</span><span> </span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="GHC.Stack.Types.html#SrcLoc"><span class="hs-identifier hs-type">SrcLoc</span></a></span></span></span></span><span>
</span><span id="line-234"></span><span>
</span><span id="line-235"></span><span class="hs-comment">--------------------------------------------------------------</span><span>
</span><span id="line-236"></span><span class="hs-comment">-- Show instances for the first few tuple</span><span>
</span><span id="line-237"></span><span class="hs-comment">--------------------------------------------------------------</span><span>
</span><span id="line-238"></span><span>
</span><span id="line-239"></span><span class="hs-comment">-- The explicit 's' parameters are important</span><span>
</span><span id="line-240"></span><span class="hs-comment">-- Otherwise GHC thinks that &quot;shows x&quot; might take a lot of work to compute</span><span>
</span><span id="line-241"></span><span class="hs-comment">-- and generates defns like</span><span>
</span><span id="line-242"></span><span class="hs-comment">--      showsPrec _ (x,y) = let sx = shows x; sy = shows y in</span><span>
</span><span id="line-243"></span><span class="hs-comment">--                          \s -&gt; showChar '(' (sx (showChar ',' (sy (showChar ')' s))))</span><span>
</span><span id="line-244"></span><span>
</span><span id="line-245"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-246"></span><span id="local-6989586621679485310"><span id="local-6989586621679485311"><span class="hs-keyword">instance</span><span>  </span><span id="local-6989586621679484729"><span id="local-6989586621679484731"><span class="hs-special">(</span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485311"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485310"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679485311"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485310"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">)</span></span></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-247"></span><span>  </span><span id="local-6989586621679484726"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; (a, b) -&gt; ShowS
</span><a href="#local-6989586621679484726"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484725"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484725"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484724"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484724"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484723"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484723"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[ShowS] -&gt; ShowS
</span><a href="GHC.Show.html#show_tuple"><span class="hs-identifier hs-var">show_tuple</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">a -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484725"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">b -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484724"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484723"><span class="hs-identifier hs-var">s</span></a></span></span></span><span>
</span><span id="line-248"></span><span>
</span><span id="line-249"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-250"></span><span id="local-6989586621679485307"><span id="local-6989586621679485308"><span id="local-6989586621679485309"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484717"><span id="local-6989586621679484719"><span class="hs-special">(</span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485309"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485308"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485307"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679485309"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679485308"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679485307"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">)</span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-251"></span><span>  </span><span id="local-6989586621679484713"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; (a, b, c) -&gt; ShowS
</span><a href="#local-6989586621679484713"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484712"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484712"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484711"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484711"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484710"><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484710"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484709"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484709"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[ShowS] -&gt; ShowS
</span><a href="GHC.Show.html#show_tuple"><span class="hs-identifier hs-var">show_tuple</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">a -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484712"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">b -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484711"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">c -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484710"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484709"><span class="hs-identifier hs-var">s</span></a></span></span></span></span><span>
</span><span id="line-252"></span><span>
</span><span id="line-253"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-254"></span><span id="local-6989586621679485303"><span id="local-6989586621679485304"><span id="local-6989586621679485305"><span id="local-6989586621679485306"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484704"><span id="local-6989586621679484706"><span class="hs-special">(</span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485306"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485305"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485304"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485303"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679485306"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679485305"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679485304"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679485303"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">)</span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-255"></span><span>  </span><span id="local-6989586621679484699"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; (a, b, c, d) -&gt; ShowS
</span><a href="#local-6989586621679484699"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484698"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484698"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484697"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484697"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484696"><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484696"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484695"><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484695"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484694"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484694"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[ShowS] -&gt; ShowS
</span><a href="GHC.Show.html#show_tuple"><span class="hs-identifier hs-var">show_tuple</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">a -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484698"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">b -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484697"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">c -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484696"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">d -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484695"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484694"><span class="hs-identifier hs-var">s</span></a></span></span></span></span></span><span>
</span><span id="line-256"></span><span>
</span><span id="line-257"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-258"></span><span id="local-6989586621679485298"><span id="local-6989586621679485299"><span id="local-6989586621679485300"><span id="local-6989586621679485301"><span id="local-6989586621679485302"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484689"><span id="local-6989586621679484691"><span class="hs-special">(</span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485302"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485301"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485300"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485299"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485298"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679485302"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679485301"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679485300"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679485299"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679485298"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">)</span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-259"></span><span>  </span><span id="local-6989586621679484683"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; (a, b, c, d, e) -&gt; ShowS
</span><a href="#local-6989586621679484683"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484682"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484682"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484681"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484681"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484680"><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484680"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484679"><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484679"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484678"><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484678"><span class="hs-identifier hs-var">e</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484677"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484677"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[ShowS] -&gt; ShowS
</span><a href="GHC.Show.html#show_tuple"><span class="hs-identifier hs-var">show_tuple</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">a -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484682"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">b -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484681"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">c -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484680"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">d -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484679"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">e -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484678"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484677"><span class="hs-identifier hs-var">s</span></a></span></span></span></span></span></span><span>
</span><span id="line-260"></span><span>
</span><span id="line-261"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-262"></span><span id="local-6989586621679485292"><span id="local-6989586621679485293"><span id="local-6989586621679485294"><span id="local-6989586621679485295"><span id="local-6989586621679485296"><span id="local-6989586621679485297"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484672"><span id="local-6989586621679484674"><span class="hs-special">(</span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485297"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485296"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485295"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485294"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485293"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485292"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679485297"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485296"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485295"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485294"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485293"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485292"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">)</span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-263"></span><span>  </span><span id="local-6989586621679484665"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; (a, b, c, d, e, f) -&gt; ShowS
</span><a href="#local-6989586621679484665"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484664"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484664"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484663"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484663"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484662"><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484662"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484661"><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484661"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484660"><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484660"><span class="hs-identifier hs-var">e</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484659"><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484659"><span class="hs-identifier hs-var">f</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484658"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484658"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[ShowS] -&gt; ShowS
</span><a href="GHC.Show.html#show_tuple"><span class="hs-identifier hs-var">show_tuple</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">a -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484664"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">b -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484663"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">c -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484662"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">d -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484661"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">e -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484660"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">f -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484659"><span class="hs-identifier hs-var">f</span></a></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484658"><span class="hs-identifier hs-var">s</span></a></span></span></span></span></span></span></span><span>
</span><span id="line-264"></span><span>
</span><span id="line-265"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-266"></span><span id="local-6989586621679485285"><span id="local-6989586621679485286"><span id="local-6989586621679485287"><span id="local-6989586621679485288"><span id="local-6989586621679485289"><span id="local-6989586621679485290"><span id="local-6989586621679485291"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484653"><span id="local-6989586621679484655"><span class="hs-special">(</span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485291"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485290"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485289"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485288"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485287"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485286"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485285"><span class="hs-identifier hs-type">g</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-267"></span><span>        </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679485291"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485290"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485289"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485288"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485287"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485286"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485285"><span class="hs-identifier hs-type">g</span></a></span><span class="hs-special">)</span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-268"></span><span>  </span><span id="local-6989586621679484645"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; (a, b, c, d, e, f, g) -&gt; ShowS
</span><a href="#local-6989586621679484645"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484644"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484644"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484643"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484643"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484642"><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484642"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484641"><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484641"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484640"><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484640"><span class="hs-identifier hs-var">e</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484639"><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484639"><span class="hs-identifier hs-var">f</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484638"><span class="annot"><span class="annottext">g
</span><a href="#local-6989586621679484638"><span class="hs-identifier hs-var">g</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484637"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484637"><span class="hs-identifier hs-var">s</span></a></span></span><span>
</span><span id="line-269"></span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[ShowS] -&gt; ShowS
</span><a href="GHC.Show.html#show_tuple"><span class="hs-identifier hs-var">show_tuple</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">a -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484644"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">b -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484643"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">c -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484642"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">d -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484641"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">e -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484640"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">f -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484639"><span class="hs-identifier hs-var">f</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">g -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">g
</span><a href="#local-6989586621679484638"><span class="hs-identifier hs-var">g</span></a></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484637"><span class="hs-identifier hs-var">s</span></a></span></span></span></span></span></span></span></span><span>
</span><span id="line-270"></span><span>
</span><span id="line-271"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-272"></span><span id="local-6989586621679485277"><span id="local-6989586621679485278"><span id="local-6989586621679485279"><span id="local-6989586621679485280"><span id="local-6989586621679485281"><span id="local-6989586621679485282"><span id="local-6989586621679485283"><span id="local-6989586621679485284"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484632"><span id="local-6989586621679484634"><span class="hs-special">(</span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485284"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485283"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485282"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485281"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485280"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485279"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485278"><span class="hs-identifier hs-type">g</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485277"><span class="hs-identifier hs-type">h</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-273"></span><span>         </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679485284"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485283"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485282"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485281"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485280"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485279"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485278"><span class="hs-identifier hs-type">g</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485277"><span class="hs-identifier hs-type">h</span></a></span><span class="hs-special">)</span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-274"></span><span>  </span><span id="local-6989586621679484623"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; (a, b, c, d, e, f, g, h) -&gt; ShowS
</span><a href="#local-6989586621679484623"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484622"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484622"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484621"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484621"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484620"><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484620"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484619"><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484619"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484618"><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484618"><span class="hs-identifier hs-var">e</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484617"><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484617"><span class="hs-identifier hs-var">f</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484616"><span class="annot"><span class="annottext">g
</span><a href="#local-6989586621679484616"><span class="hs-identifier hs-var">g</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484615"><span class="annot"><span class="annottext">h
</span><a href="#local-6989586621679484615"><span class="hs-identifier hs-var">h</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484614"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484614"><span class="hs-identifier hs-var">s</span></a></span></span><span>
</span><span id="line-275"></span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[ShowS] -&gt; ShowS
</span><a href="GHC.Show.html#show_tuple"><span class="hs-identifier hs-var">show_tuple</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">a -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484622"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">b -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484621"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">c -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484620"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">d -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484619"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">e -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484618"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">f -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484617"><span class="hs-identifier hs-var">f</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">g -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">g
</span><a href="#local-6989586621679484616"><span class="hs-identifier hs-var">g</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">h -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">h
</span><a href="#local-6989586621679484615"><span class="hs-identifier hs-var">h</span></a></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484614"><span class="hs-identifier hs-var">s</span></a></span></span></span></span></span></span></span></span></span><span>
</span><span id="line-276"></span><span>
</span><span id="line-277"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-278"></span><span id="local-6989586621679485268"><span id="local-6989586621679485269"><span id="local-6989586621679485270"><span id="local-6989586621679485271"><span id="local-6989586621679485272"><span id="local-6989586621679485273"><span id="local-6989586621679485274"><span id="local-6989586621679485275"><span id="local-6989586621679485276"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484609"><span id="local-6989586621679484611"><span class="hs-special">(</span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485276"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485275"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485274"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485273"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485272"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485271"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485270"><span class="hs-identifier hs-type">g</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485269"><span class="hs-identifier hs-type">h</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485268"><span class="hs-identifier hs-type">i</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-279"></span><span>         </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679485276"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485275"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485274"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485273"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485272"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485271"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485270"><span class="hs-identifier hs-type">g</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485269"><span class="hs-identifier hs-type">h</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485268"><span class="hs-identifier hs-type">i</span></a></span><span class="hs-special">)</span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-280"></span><span>  </span><span id="local-6989586621679484599"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; (a, b, c, d, e, f, g, h, i) -&gt; ShowS
</span><a href="#local-6989586621679484599"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484598"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484598"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484597"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484597"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484596"><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484596"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484595"><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484595"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484594"><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484594"><span class="hs-identifier hs-var">e</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484593"><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484593"><span class="hs-identifier hs-var">f</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484592"><span class="annot"><span class="annottext">g
</span><a href="#local-6989586621679484592"><span class="hs-identifier hs-var">g</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484591"><span class="annot"><span class="annottext">h
</span><a href="#local-6989586621679484591"><span class="hs-identifier hs-var">h</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484590"><span class="annot"><span class="annottext">i
</span><a href="#local-6989586621679484590"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484589"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484589"><span class="hs-identifier hs-var">s</span></a></span></span><span>
</span><span id="line-281"></span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[ShowS] -&gt; ShowS
</span><a href="GHC.Show.html#show_tuple"><span class="hs-identifier hs-var">show_tuple</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">a -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484598"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">b -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484597"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">c -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484596"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">d -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484595"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">e -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484594"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">f -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484593"><span class="hs-identifier hs-var">f</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">g -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">g
</span><a href="#local-6989586621679484592"><span class="hs-identifier hs-var">g</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">h -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">h
</span><a href="#local-6989586621679484591"><span class="hs-identifier hs-var">h</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-282"></span><span>                      </span><span class="annot"><span class="annottext">i -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">i
</span><a href="#local-6989586621679484590"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484589"><span class="hs-identifier hs-var">s</span></a></span></span></span></span></span></span></span></span></span></span><span>
</span><span id="line-283"></span><span>
</span><span id="line-284"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-285"></span><span id="local-6989586621679485258"><span id="local-6989586621679485259"><span id="local-6989586621679485260"><span id="local-6989586621679485261"><span id="local-6989586621679485262"><span id="local-6989586621679485263"><span id="local-6989586621679485264"><span id="local-6989586621679485265"><span id="local-6989586621679485266"><span id="local-6989586621679485267"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484584"><span id="local-6989586621679484586"><span class="hs-special">(</span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485267"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485266"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485265"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485264"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485263"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485262"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485261"><span class="hs-identifier hs-type">g</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485260"><span class="hs-identifier hs-type">h</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485259"><span class="hs-identifier hs-type">i</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485258"><span class="hs-identifier hs-type">j</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-286"></span><span>         </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679485267"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485266"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485265"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485264"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485263"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485262"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485261"><span class="hs-identifier hs-type">g</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485260"><span class="hs-identifier hs-type">h</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485259"><span class="hs-identifier hs-type">i</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485258"><span class="hs-identifier hs-type">j</span></a></span><span class="hs-special">)</span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-287"></span><span>  </span><span id="local-6989586621679484573"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; (a, b, c, d, e, f, g, h, i, j) -&gt; ShowS
</span><a href="#local-6989586621679484573"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484572"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484572"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484571"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484571"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484570"><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484570"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484569"><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484569"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484568"><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484568"><span class="hs-identifier hs-var">e</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484567"><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484567"><span class="hs-identifier hs-var">f</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484566"><span class="annot"><span class="annottext">g
</span><a href="#local-6989586621679484566"><span class="hs-identifier hs-var">g</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484565"><span class="annot"><span class="annottext">h
</span><a href="#local-6989586621679484565"><span class="hs-identifier hs-var">h</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484564"><span class="annot"><span class="annottext">i
</span><a href="#local-6989586621679484564"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484563"><span class="annot"><span class="annottext">j
</span><a href="#local-6989586621679484563"><span class="hs-identifier hs-var">j</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484562"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484562"><span class="hs-identifier hs-var">s</span></a></span></span><span>
</span><span id="line-288"></span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[ShowS] -&gt; ShowS
</span><a href="GHC.Show.html#show_tuple"><span class="hs-identifier hs-var">show_tuple</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">a -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484572"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">b -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484571"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">c -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484570"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">d -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484569"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">e -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484568"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">f -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484567"><span class="hs-identifier hs-var">f</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">g -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">g
</span><a href="#local-6989586621679484566"><span class="hs-identifier hs-var">g</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">h -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">h
</span><a href="#local-6989586621679484565"><span class="hs-identifier hs-var">h</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-289"></span><span>                      </span><span class="annot"><span class="annottext">i -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">i
</span><a href="#local-6989586621679484564"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">j -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">j
</span><a href="#local-6989586621679484563"><span class="hs-identifier hs-var">j</span></a></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484562"><span class="hs-identifier hs-var">s</span></a></span></span></span></span></span></span></span></span></span></span></span><span>
</span><span id="line-290"></span><span>
</span><span id="line-291"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-292"></span><span id="local-6989586621679485247"><span id="local-6989586621679485248"><span id="local-6989586621679485249"><span id="local-6989586621679485250"><span id="local-6989586621679485251"><span id="local-6989586621679485252"><span id="local-6989586621679485253"><span id="local-6989586621679485254"><span id="local-6989586621679485255"><span id="local-6989586621679485256"><span id="local-6989586621679485257"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484557"><span id="local-6989586621679484559"><span class="hs-special">(</span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485257"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485256"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485255"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485254"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485253"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485252"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485251"><span class="hs-identifier hs-type">g</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485250"><span class="hs-identifier hs-type">h</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485249"><span class="hs-identifier hs-type">i</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485248"><span class="hs-identifier hs-type">j</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485247"><span class="hs-identifier hs-type">k</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-293"></span><span>         </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679485257"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485256"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485255"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485254"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485253"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485252"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485251"><span class="hs-identifier hs-type">g</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485250"><span class="hs-identifier hs-type">h</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485249"><span class="hs-identifier hs-type">i</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485248"><span class="hs-identifier hs-type">j</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485247"><span class="hs-identifier hs-type">k</span></a></span><span class="hs-special">)</span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-294"></span><span>  </span><span id="local-6989586621679484545"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; (a, b, c, d, e, f, g, h, i, j, k) -&gt; ShowS
</span><a href="#local-6989586621679484545"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484544"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484544"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484543"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484543"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484542"><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484542"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484541"><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484541"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484540"><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484540"><span class="hs-identifier hs-var">e</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484539"><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484539"><span class="hs-identifier hs-var">f</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484538"><span class="annot"><span class="annottext">g
</span><a href="#local-6989586621679484538"><span class="hs-identifier hs-var">g</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484537"><span class="annot"><span class="annottext">h
</span><a href="#local-6989586621679484537"><span class="hs-identifier hs-var">h</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484536"><span class="annot"><span class="annottext">i
</span><a href="#local-6989586621679484536"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484535"><span class="annot"><span class="annottext">j
</span><a href="#local-6989586621679484535"><span class="hs-identifier hs-var">j</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484534"><span class="annot"><span class="annottext">k
</span><a href="#local-6989586621679484534"><span class="hs-identifier hs-var">k</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484533"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484533"><span class="hs-identifier hs-var">s</span></a></span></span><span>
</span><span id="line-295"></span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[ShowS] -&gt; ShowS
</span><a href="GHC.Show.html#show_tuple"><span class="hs-identifier hs-var">show_tuple</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">a -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484544"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">b -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484543"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">c -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484542"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">d -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484541"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">e -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484540"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">f -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484539"><span class="hs-identifier hs-var">f</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">g -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">g
</span><a href="#local-6989586621679484538"><span class="hs-identifier hs-var">g</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">h -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">h
</span><a href="#local-6989586621679484537"><span class="hs-identifier hs-var">h</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-296"></span><span>                      </span><span class="annot"><span class="annottext">i -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">i
</span><a href="#local-6989586621679484536"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">j -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">j
</span><a href="#local-6989586621679484535"><span class="hs-identifier hs-var">j</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">k -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">k
</span><a href="#local-6989586621679484534"><span class="hs-identifier hs-var">k</span></a></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484533"><span class="hs-identifier hs-var">s</span></a></span></span></span></span></span></span></span></span></span></span></span></span><span>
</span><span id="line-297"></span><span>
</span><span id="line-298"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-299"></span><span id="local-6989586621679485235"><span id="local-6989586621679485236"><span id="local-6989586621679485237"><span id="local-6989586621679485238"><span id="local-6989586621679485239"><span id="local-6989586621679485240"><span id="local-6989586621679485241"><span id="local-6989586621679485242"><span id="local-6989586621679485243"><span id="local-6989586621679485244"><span id="local-6989586621679485245"><span id="local-6989586621679485246"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484528"><span id="local-6989586621679484530"><span class="hs-special">(</span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485246"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485245"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485244"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485243"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485242"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485241"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485240"><span class="hs-identifier hs-type">g</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485239"><span class="hs-identifier hs-type">h</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485238"><span class="hs-identifier hs-type">i</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485237"><span class="hs-identifier hs-type">j</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485236"><span class="hs-identifier hs-type">k</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-300"></span><span>          </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485235"><span class="hs-identifier hs-type">l</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-301"></span><span>         </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679485246"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485245"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485244"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485243"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485242"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485241"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485240"><span class="hs-identifier hs-type">g</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485239"><span class="hs-identifier hs-type">h</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485238"><span class="hs-identifier hs-type">i</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485237"><span class="hs-identifier hs-type">j</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485236"><span class="hs-identifier hs-type">k</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485235"><span class="hs-identifier hs-type">l</span></a></span><span class="hs-special">)</span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-302"></span><span>  </span><span id="local-6989586621679484515"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; (a, b, c, d, e, f, g, h, i, j, k, l) -&gt; ShowS
</span><a href="#local-6989586621679484515"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484514"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484514"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484513"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484513"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484512"><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484512"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484511"><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484511"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484510"><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484510"><span class="hs-identifier hs-var">e</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484509"><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484509"><span class="hs-identifier hs-var">f</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484508"><span class="annot"><span class="annottext">g
</span><a href="#local-6989586621679484508"><span class="hs-identifier hs-var">g</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484507"><span class="annot"><span class="annottext">h
</span><a href="#local-6989586621679484507"><span class="hs-identifier hs-var">h</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484506"><span class="annot"><span class="annottext">i
</span><a href="#local-6989586621679484506"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484505"><span class="annot"><span class="annottext">j
</span><a href="#local-6989586621679484505"><span class="hs-identifier hs-var">j</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484504"><span class="annot"><span class="annottext">k
</span><a href="#local-6989586621679484504"><span class="hs-identifier hs-var">k</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484503"><span class="annot"><span class="annottext">l
</span><a href="#local-6989586621679484503"><span class="hs-identifier hs-var">l</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484502"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484502"><span class="hs-identifier hs-var">s</span></a></span></span><span>
</span><span id="line-303"></span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[ShowS] -&gt; ShowS
</span><a href="GHC.Show.html#show_tuple"><span class="hs-identifier hs-var">show_tuple</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">a -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484514"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">b -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484513"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">c -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484512"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">d -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484511"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">e -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484510"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">f -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484509"><span class="hs-identifier hs-var">f</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">g -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">g
</span><a href="#local-6989586621679484508"><span class="hs-identifier hs-var">g</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">h -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">h
</span><a href="#local-6989586621679484507"><span class="hs-identifier hs-var">h</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-304"></span><span>                      </span><span class="annot"><span class="annottext">i -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">i
</span><a href="#local-6989586621679484506"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">j -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">j
</span><a href="#local-6989586621679484505"><span class="hs-identifier hs-var">j</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">k -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">k
</span><a href="#local-6989586621679484504"><span class="hs-identifier hs-var">k</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">l -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">l
</span><a href="#local-6989586621679484503"><span class="hs-identifier hs-var">l</span></a></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484502"><span class="hs-identifier hs-var">s</span></a></span></span></span></span></span></span></span></span></span></span></span></span></span><span>
</span><span id="line-305"></span><span>
</span><span id="line-306"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-307"></span><span id="local-6989586621679485222"><span id="local-6989586621679485223"><span id="local-6989586621679485224"><span id="local-6989586621679485225"><span id="local-6989586621679485226"><span id="local-6989586621679485227"><span id="local-6989586621679485228"><span id="local-6989586621679485229"><span id="local-6989586621679485230"><span id="local-6989586621679485231"><span id="local-6989586621679485232"><span id="local-6989586621679485233"><span id="local-6989586621679485234"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484497"><span id="local-6989586621679484499"><span class="hs-special">(</span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485234"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485233"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485232"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485231"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485230"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485229"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485228"><span class="hs-identifier hs-type">g</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485227"><span class="hs-identifier hs-type">h</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485226"><span class="hs-identifier hs-type">i</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485225"><span class="hs-identifier hs-type">j</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485224"><span class="hs-identifier hs-type">k</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-308"></span><span>          </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485223"><span class="hs-identifier hs-type">l</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485222"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-309"></span><span>         </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679485234"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485233"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485232"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485231"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485230"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485229"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485228"><span class="hs-identifier hs-type">g</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485227"><span class="hs-identifier hs-type">h</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485226"><span class="hs-identifier hs-type">i</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485225"><span class="hs-identifier hs-type">j</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485224"><span class="hs-identifier hs-type">k</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485223"><span class="hs-identifier hs-type">l</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485222"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">)</span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-310"></span><span>  </span><span id="local-6989586621679484483"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; (a, b, c, d, e, f, g, h, i, j, k, l, m) -&gt; ShowS
</span><a href="#local-6989586621679484483"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484482"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484482"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484481"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484481"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484480"><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484480"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484479"><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484479"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484478"><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484478"><span class="hs-identifier hs-var">e</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484477"><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484477"><span class="hs-identifier hs-var">f</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484476"><span class="annot"><span class="annottext">g
</span><a href="#local-6989586621679484476"><span class="hs-identifier hs-var">g</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484475"><span class="annot"><span class="annottext">h
</span><a href="#local-6989586621679484475"><span class="hs-identifier hs-var">h</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484474"><span class="annot"><span class="annottext">i
</span><a href="#local-6989586621679484474"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484473"><span class="annot"><span class="annottext">j
</span><a href="#local-6989586621679484473"><span class="hs-identifier hs-var">j</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484472"><span class="annot"><span class="annottext">k
</span><a href="#local-6989586621679484472"><span class="hs-identifier hs-var">k</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484471"><span class="annot"><span class="annottext">l
</span><a href="#local-6989586621679484471"><span class="hs-identifier hs-var">l</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484470"><span class="annot"><span class="annottext">m
</span><a href="#local-6989586621679484470"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484469"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484469"><span class="hs-identifier hs-var">s</span></a></span></span><span>
</span><span id="line-311"></span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[ShowS] -&gt; ShowS
</span><a href="GHC.Show.html#show_tuple"><span class="hs-identifier hs-var">show_tuple</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">a -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484482"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">b -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484481"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">c -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484480"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">d -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484479"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">e -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484478"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">f -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484477"><span class="hs-identifier hs-var">f</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">g -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">g
</span><a href="#local-6989586621679484476"><span class="hs-identifier hs-var">g</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">h -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">h
</span><a href="#local-6989586621679484475"><span class="hs-identifier hs-var">h</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-312"></span><span>                      </span><span class="annot"><span class="annottext">i -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">i
</span><a href="#local-6989586621679484474"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">j -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">j
</span><a href="#local-6989586621679484473"><span class="hs-identifier hs-var">j</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">k -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">k
</span><a href="#local-6989586621679484472"><span class="hs-identifier hs-var">k</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">l -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">l
</span><a href="#local-6989586621679484471"><span class="hs-identifier hs-var">l</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">m -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">m
</span><a href="#local-6989586621679484470"><span class="hs-identifier hs-var">m</span></a></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484469"><span class="hs-identifier hs-var">s</span></a></span></span></span></span></span></span></span></span></span></span></span></span></span></span><span>
</span><span id="line-313"></span><span>
</span><span id="line-314"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-315"></span><span id="local-6989586621679485208"><span id="local-6989586621679485209"><span id="local-6989586621679485210"><span id="local-6989586621679485211"><span id="local-6989586621679485212"><span id="local-6989586621679485213"><span id="local-6989586621679485214"><span id="local-6989586621679485215"><span id="local-6989586621679485216"><span id="local-6989586621679485217"><span id="local-6989586621679485218"><span id="local-6989586621679485219"><span id="local-6989586621679485220"><span id="local-6989586621679485221"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484464"><span id="local-6989586621679484466"><span class="hs-special">(</span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485221"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485220"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485219"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485218"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485217"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485216"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485215"><span class="hs-identifier hs-type">g</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485214"><span class="hs-identifier hs-type">h</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485213"><span class="hs-identifier hs-type">i</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485212"><span class="hs-identifier hs-type">j</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485211"><span class="hs-identifier hs-type">k</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-316"></span><span>          </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485210"><span class="hs-identifier hs-type">l</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485209"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485208"><span class="hs-identifier hs-type">n</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-317"></span><span>         </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679485221"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485220"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485219"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485218"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485217"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485216"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485215"><span class="hs-identifier hs-type">g</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485214"><span class="hs-identifier hs-type">h</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485213"><span class="hs-identifier hs-type">i</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485212"><span class="hs-identifier hs-type">j</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485211"><span class="hs-identifier hs-type">k</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485210"><span class="hs-identifier hs-type">l</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485209"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485208"><span class="hs-identifier hs-type">n</span></a></span><span class="hs-special">)</span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-318"></span><span>  </span><span id="local-6989586621679484449"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; (a, b, c, d, e, f, g, h, i, j, k, l, m, n) -&gt; ShowS
</span><a href="#local-6989586621679484449"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484448"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484448"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484447"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484447"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484446"><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484446"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484445"><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484445"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484444"><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484444"><span class="hs-identifier hs-var">e</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484443"><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484443"><span class="hs-identifier hs-var">f</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484442"><span class="annot"><span class="annottext">g
</span><a href="#local-6989586621679484442"><span class="hs-identifier hs-var">g</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484441"><span class="annot"><span class="annottext">h
</span><a href="#local-6989586621679484441"><span class="hs-identifier hs-var">h</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484440"><span class="annot"><span class="annottext">i
</span><a href="#local-6989586621679484440"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484439"><span class="annot"><span class="annottext">j
</span><a href="#local-6989586621679484439"><span class="hs-identifier hs-var">j</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484438"><span class="annot"><span class="annottext">k
</span><a href="#local-6989586621679484438"><span class="hs-identifier hs-var">k</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484437"><span class="annot"><span class="annottext">l
</span><a href="#local-6989586621679484437"><span class="hs-identifier hs-var">l</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484436"><span class="annot"><span class="annottext">m
</span><a href="#local-6989586621679484436"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484435"><span class="annot"><span class="annottext">n
</span><a href="#local-6989586621679484435"><span class="hs-identifier hs-var">n</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484434"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484434"><span class="hs-identifier hs-var">s</span></a></span></span><span>
</span><span id="line-319"></span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[ShowS] -&gt; ShowS
</span><a href="GHC.Show.html#show_tuple"><span class="hs-identifier hs-var">show_tuple</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">a -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484448"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">b -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484447"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">c -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484446"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">d -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484445"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">e -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484444"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">f -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484443"><span class="hs-identifier hs-var">f</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">g -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">g
</span><a href="#local-6989586621679484442"><span class="hs-identifier hs-var">g</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">h -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">h
</span><a href="#local-6989586621679484441"><span class="hs-identifier hs-var">h</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-320"></span><span>                      </span><span class="annot"><span class="annottext">i -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">i
</span><a href="#local-6989586621679484440"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">j -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">j
</span><a href="#local-6989586621679484439"><span class="hs-identifier hs-var">j</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">k -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">k
</span><a href="#local-6989586621679484438"><span class="hs-identifier hs-var">k</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">l -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">l
</span><a href="#local-6989586621679484437"><span class="hs-identifier hs-var">l</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">m -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">m
</span><a href="#local-6989586621679484436"><span class="hs-identifier hs-var">m</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">n -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">n
</span><a href="#local-6989586621679484435"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484434"><span class="hs-identifier hs-var">s</span></a></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span><span>
</span><span id="line-321"></span><span>
</span><span id="line-322"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-323"></span><span id="local-6989586621679485193"><span id="local-6989586621679485194"><span id="local-6989586621679485195"><span id="local-6989586621679485196"><span id="local-6989586621679485197"><span id="local-6989586621679485198"><span id="local-6989586621679485199"><span id="local-6989586621679485200"><span id="local-6989586621679485201"><span id="local-6989586621679485202"><span id="local-6989586621679485203"><span id="local-6989586621679485204"><span id="local-6989586621679485205"><span id="local-6989586621679485206"><span id="local-6989586621679485207"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484429"><span id="local-6989586621679484431"><span class="hs-special">(</span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485207"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485206"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485205"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485204"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485203"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485202"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485201"><span class="hs-identifier hs-type">g</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485200"><span class="hs-identifier hs-type">h</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485199"><span class="hs-identifier hs-type">i</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485198"><span class="hs-identifier hs-type">j</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485197"><span class="hs-identifier hs-type">k</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-324"></span><span>          </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485196"><span class="hs-identifier hs-type">l</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485195"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485194"><span class="hs-identifier hs-type">n</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485193"><span class="hs-identifier hs-type">o</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-325"></span><span>         </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679485207"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485206"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485205"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485204"><span class="hs-identifier hs-type">d</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485203"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485202"><span class="hs-identifier hs-type">f</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485201"><span class="hs-identifier hs-type">g</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485200"><span class="hs-identifier hs-type">h</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485199"><span class="hs-identifier hs-type">i</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485198"><span class="hs-identifier hs-type">j</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485197"><span class="hs-identifier hs-type">k</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485196"><span class="hs-identifier hs-type">l</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485195"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485194"><span class="hs-identifier hs-type">n</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679485193"><span class="hs-identifier hs-type">o</span></a></span><span class="hs-special">)</span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-326"></span><span>  </span><span id="local-6989586621679484413"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o) -&gt; ShowS
</span><a href="#local-6989586621679484413"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484412"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484412"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484411"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484411"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484410"><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484410"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484409"><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484409"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484408"><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484408"><span class="hs-identifier hs-var">e</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484407"><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484407"><span class="hs-identifier hs-var">f</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484406"><span class="annot"><span class="annottext">g
</span><a href="#local-6989586621679484406"><span class="hs-identifier hs-var">g</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484405"><span class="annot"><span class="annottext">h
</span><a href="#local-6989586621679484405"><span class="hs-identifier hs-var">h</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484404"><span class="annot"><span class="annottext">i
</span><a href="#local-6989586621679484404"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484403"><span class="annot"><span class="annottext">j
</span><a href="#local-6989586621679484403"><span class="hs-identifier hs-var">j</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484402"><span class="annot"><span class="annottext">k
</span><a href="#local-6989586621679484402"><span class="hs-identifier hs-var">k</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484401"><span class="annot"><span class="annottext">l
</span><a href="#local-6989586621679484401"><span class="hs-identifier hs-var">l</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484400"><span class="annot"><span class="annottext">m
</span><a href="#local-6989586621679484400"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484399"><span class="annot"><span class="annottext">n
</span><a href="#local-6989586621679484399"><span class="hs-identifier hs-var">n</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679484398"><span class="annot"><span class="annottext">o
</span><a href="#local-6989586621679484398"><span class="hs-identifier hs-var">o</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484397"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484397"><span class="hs-identifier hs-var">s</span></a></span></span><span>
</span><span id="line-327"></span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[ShowS] -&gt; ShowS
</span><a href="GHC.Show.html#show_tuple"><span class="hs-identifier hs-var">show_tuple</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">a -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679484412"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">b -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679484411"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">c -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">c
</span><a href="#local-6989586621679484410"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">d -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">d
</span><a href="#local-6989586621679484409"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">e -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">e
</span><a href="#local-6989586621679484408"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">f -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">f
</span><a href="#local-6989586621679484407"><span class="hs-identifier hs-var">f</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">g -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">g
</span><a href="#local-6989586621679484406"><span class="hs-identifier hs-var">g</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">h -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">h
</span><a href="#local-6989586621679484405"><span class="hs-identifier hs-var">h</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-328"></span><span>                      </span><span class="annot"><span class="annottext">i -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">i
</span><a href="#local-6989586621679484404"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">j -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">j
</span><a href="#local-6989586621679484403"><span class="hs-identifier hs-var">j</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">k -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">k
</span><a href="#local-6989586621679484402"><span class="hs-identifier hs-var">k</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">l -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">l
</span><a href="#local-6989586621679484401"><span class="hs-identifier hs-var">l</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">m -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">m
</span><a href="#local-6989586621679484400"><span class="hs-identifier hs-var">m</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">n -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">n
</span><a href="#local-6989586621679484399"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">o -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="annot"><span class="annottext">o
</span><a href="#local-6989586621679484398"><span class="hs-identifier hs-var">o</span></a></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484397"><span class="hs-identifier hs-var">s</span></a></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span><span>
</span><span id="line-329"></span><span>
</span><span id="line-330"></span><span class="annot"><a href="GHC.Show.html#show_tuple"><span class="hs-identifier hs-type">show_tuple</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-type">ShowS</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-type">ShowS</span></a></span><span>
</span><span id="line-331"></span><span id="show_tuple"><span class="annot"><span class="annottext">show_tuple :: [ShowS] -&gt; ShowS
</span><a href="GHC.Show.html#show_tuple"><span class="hs-identifier hs-var hs-var">show_tuple</span></a></span></span><span> </span><span id="local-6989586621679484396"><span class="annot"><span class="annottext">[ShowS]
</span><a href="#local-6989586621679484396"><span class="hs-identifier hs-var">ss</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
</span><a href="GHC.Show.html#showChar"><span class="hs-identifier hs-var">showChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'('</span></span><span>
</span><span id="line-332"></span><span>              </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">(ShowS -&gt; ShowS -&gt; ShowS) -&gt; [ShowS] -&gt; ShowS
forall a. (a -&gt; a -&gt; a) -&gt; [a] -&gt; a
</span><a href="GHC.List.html#foldr1"><span class="hs-identifier hs-var">foldr1</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679484395"><span class="annot"><span class="annottext">ShowS
</span><a href="#local-6989586621679484395"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span id="local-6989586621679484394"><span class="annot"><span class="annottext">ShowS
</span><a href="#local-6989586621679484394"><span class="hs-identifier hs-var">r</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">ShowS
</span><a href="#local-6989586621679484395"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
</span><a href="GHC.Show.html#showChar"><span class="hs-identifier hs-var">showChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">','</span></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS
</span><a href="#local-6989586621679484394"><span class="hs-identifier hs-var">r</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[ShowS]
</span><a href="#local-6989586621679484396"><span class="hs-identifier hs-var">ss</span></a></span><span>
</span><span id="line-333"></span><span>              </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
</span><a href="GHC.Show.html#showChar"><span class="hs-identifier hs-var">showChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">')'</span></span><span>
</span><span id="line-334"></span><span>
</span><span id="line-335"></span><span class="hs-comment">--------------------------------------------------------------</span><span>
</span><span id="line-336"></span><span class="hs-comment">-- Support code for Show</span><span>
</span><span id="line-337"></span><span class="hs-comment">--------------------------------------------------------------</span><span>
</span><span id="line-338"></span><span>
</span><span id="line-339"></span><span class="hs-comment">-- | equivalent to 'showsPrec' with a precedence of 0.</span><span>
</span><span id="line-340"></span><span id="local-6989586621679485321"><span class="annot"><a href="GHC.Show.html#shows"><span class="hs-identifier hs-type">shows</span></a></span><span>           </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679485321"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679485321"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-type">ShowS</span></a></span></span><span>
</span><span id="line-341"></span><span id="shows"><span class="annot"><span class="annottext">shows :: forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var hs-var">shows</span></a></span></span><span>           </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">Int -&gt; a -&gt; ShowS
forall a. Show a =&gt; Int -&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span>
</span><span id="line-342"></span><span>
</span><span id="line-343"></span><span class="hs-comment">-- | utility function converting a 'Char' to a show function that</span><span>
</span><span id="line-344"></span><span class="hs-comment">-- simply prepends the character unchanged.</span><span>
</span><span id="line-345"></span><span class="annot"><a href="GHC.Show.html#showChar"><span class="hs-identifier hs-type">showChar</span></a></span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Char"><span class="hs-identifier hs-type">Char</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-type">ShowS</span></a></span><span>
</span><span id="line-346"></span><span id="showChar"><span class="annot"><span class="annottext">showChar :: Char -&gt; ShowS
</span><a href="GHC.Show.html#showChar"><span class="hs-identifier hs-var hs-var">showChar</span></a></span></span><span>        </span><span class="hs-glyph">=</span><span>  </span><span class="hs-special">(</span><span class="hs-glyph">:</span><span class="hs-special">)</span><span>
</span><span id="line-347"></span><span>
</span><span id="line-348"></span><span class="hs-comment">-- | utility function converting a 'String' to a show function that</span><span>
</span><span id="line-349"></span><span class="hs-comment">-- simply prepends the string unchanged.</span><span>
</span><span id="line-350"></span><span class="annot"><a href="GHC.Show.html#showString"><span class="hs-identifier hs-type">showString</span></a></span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-type">ShowS</span></a></span><span>
</span><span id="line-351"></span><span id="showString"><span class="annot"><span class="annottext">showString :: String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var hs-var">showString</span></a></span></span><span>      </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">String -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">(++)</span></a></span><span>
</span><span id="line-352"></span><span>
</span><span id="line-353"></span><span class="hs-comment">-- | utility function that surrounds the inner show function with</span><span>
</span><span id="line-354"></span><span class="hs-comment">-- parentheses when the 'Bool' parameter is 'True'.</span><span>
</span><span id="line-355"></span><span class="annot"><a href="GHC.Show.html#showParen"><span class="hs-identifier hs-type">showParen</span></a></span><span>       </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-type">ShowS</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-type">ShowS</span></a></span><span>
</span><span id="line-356"></span><span id="showParen"><span class="annot"><span class="annottext">showParen :: Bool -&gt; ShowS -&gt; ShowS
</span><a href="GHC.Show.html#showParen"><span class="hs-identifier hs-var hs-var">showParen</span></a></span></span><span> </span><span id="local-6989586621679484391"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679484391"><span class="hs-identifier hs-var">b</span></a></span></span><span> </span><span id="local-6989586621679484390"><span class="annot"><span class="annottext">ShowS
</span><a href="#local-6989586621679484390"><span class="hs-identifier hs-var">p</span></a></span></span><span>   </span><span class="hs-glyph">=</span><span>  </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679484391"><span class="hs-identifier hs-var">b</span></a></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
</span><a href="GHC.Show.html#showChar"><span class="hs-identifier hs-var">showChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'('</span></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS
</span><a href="#local-6989586621679484390"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
</span><a href="GHC.Show.html#showChar"><span class="hs-identifier hs-var">showChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">')'</span></span><span> </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">ShowS
</span><a href="#local-6989586621679484390"><span class="hs-identifier hs-var">p</span></a></span><span>
</span><span id="line-357"></span><span>
</span><span id="line-358"></span><span class="annot"><a href="GHC.Show.html#showSpace"><span class="hs-identifier hs-type">showSpace</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-type">ShowS</span></a></span><span>
</span><span id="line-359"></span><span id="showSpace"><span class="annot"><span class="annottext">showSpace :: ShowS
</span><a href="GHC.Show.html#showSpace"><span class="hs-identifier hs-var hs-var">showSpace</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-comment">{-showChar ' '-}</span><span> </span><span class="hs-glyph">\</span><span> </span><span id="local-6989586621679484389"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484389"><span class="hs-identifier hs-var">xs</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">' '</span></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484389"><span class="hs-identifier hs-var">xs</span></a></span><span>
</span><span id="line-360"></span><span>
</span><span id="line-361"></span><span class="annot"><a href="GHC.Show.html#showCommaSpace"><span class="hs-identifier hs-type">showCommaSpace</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-type">ShowS</span></a></span><span>
</span><span id="line-362"></span><span id="showCommaSpace"><span class="annot"><span class="annottext">showCommaSpace :: ShowS
</span><a href="GHC.Show.html#showCommaSpace"><span class="hs-identifier hs-var hs-var">showCommaSpace</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;, &quot;</span></span><span>
</span><span id="line-363"></span><span class="hs-comment">-- Code specific for characters</span><span>
</span><span id="line-364"></span><span>
</span><span id="line-365"></span><span class="hs-comment">-- | Convert a character to a string using only printable characters,</span><span>
</span><span id="line-366"></span><span class="hs-comment">-- using Haskell source-language escape conventions.  For example:</span><span>
</span><span id="line-367"></span><span class="hs-comment">--</span><span>
</span><span id="line-368"></span><span class="hs-comment">-- &gt; showLitChar '\n' s  =  &quot;\\n&quot; ++ s</span><span>
</span><span id="line-369"></span><span class="hs-comment">--</span><span>
</span><span id="line-370"></span><span class="annot"><a href="GHC.Show.html#showLitChar"><span class="hs-identifier hs-type">showLitChar</span></a></span><span>                </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Char"><span class="hs-identifier hs-type">Char</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-type">ShowS</span></a></span><span>
</span><span id="line-371"></span><span id="showLitChar"><span class="annot"><span class="annottext">showLitChar :: Char -&gt; ShowS
</span><a href="GHC.Show.html#showLitChar"><span class="hs-identifier hs-var hs-var">showLitChar</span></a></span></span><span> </span><span id="local-6989586621679484388"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484388"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span id="local-6989586621679484387"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484387"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484388"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3E"><span class="hs-operator hs-var">&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\DEL'</span></span><span> </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">Char -&gt; ShowS
</span><a href="GHC.Show.html#showChar"><span class="hs-identifier hs-var">showChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\\'</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; ShowS -&gt; ShowS
</span><a href="GHC.Show.html#protectEsc"><span class="hs-identifier hs-var">protectEsc</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="GHC.Show.html#isDec"><span class="hs-identifier hs-var">isDec</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; ShowS
forall a. Show a =&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#shows"><span class="hs-identifier hs-var">shows</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; Int
</span><a href="GHC.Base.html#ord"><span class="hs-identifier hs-var">ord</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484388"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484387"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-372"></span><span class="annot"><a href="GHC.Show.html#showLitChar"><span class="hs-identifier hs-var">showLitChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\DEL'</span></span><span>         </span><span id="local-6989586621679484383"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484383"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\\DEL&quot;</span></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484383"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-373"></span><span class="annot"><a href="GHC.Show.html#showLitChar"><span class="hs-identifier hs-var">showLitChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\\'</span></span><span>           </span><span id="local-6989586621679484382"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484382"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\\\\&quot;</span></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484382"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-374"></span><span class="annot"><a href="GHC.Show.html#showLitChar"><span class="hs-identifier hs-var">showLitChar</span></a></span><span> </span><span id="local-6989586621679484381"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484381"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span id="local-6989586621679484380"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484380"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484381"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3E%3D"><span class="hs-operator hs-var">&gt;=</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">' '</span></span><span>   </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">Char -&gt; ShowS
</span><a href="GHC.Show.html#showChar"><span class="hs-identifier hs-var">showChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484381"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484380"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-375"></span><span class="annot"><a href="GHC.Show.html#showLitChar"><span class="hs-identifier hs-var">showLitChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\a'</span></span><span>           </span><span id="local-6989586621679484379"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484379"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\\a&quot;</span></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484379"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-376"></span><span class="annot"><a href="GHC.Show.html#showLitChar"><span class="hs-identifier hs-var">showLitChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\b'</span></span><span>           </span><span id="local-6989586621679484378"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484378"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\\b&quot;</span></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484378"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-377"></span><span class="annot"><a href="GHC.Show.html#showLitChar"><span class="hs-identifier hs-var">showLitChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\f'</span></span><span>           </span><span id="local-6989586621679484377"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484377"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\\f&quot;</span></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484377"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-378"></span><span class="annot"><a href="GHC.Show.html#showLitChar"><span class="hs-identifier hs-var">showLitChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\n'</span></span><span>           </span><span id="local-6989586621679484376"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484376"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\\n&quot;</span></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484376"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-379"></span><span class="annot"><a href="GHC.Show.html#showLitChar"><span class="hs-identifier hs-var">showLitChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\r'</span></span><span>           </span><span id="local-6989586621679484375"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484375"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\\r&quot;</span></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484375"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-380"></span><span class="annot"><a href="GHC.Show.html#showLitChar"><span class="hs-identifier hs-var">showLitChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\t'</span></span><span>           </span><span id="local-6989586621679484374"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484374"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\\t&quot;</span></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484374"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-381"></span><span class="annot"><a href="GHC.Show.html#showLitChar"><span class="hs-identifier hs-var">showLitChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\v'</span></span><span>           </span><span id="local-6989586621679484373"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484373"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\\v&quot;</span></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484373"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-382"></span><span class="annot"><a href="GHC.Show.html#showLitChar"><span class="hs-identifier hs-var">showLitChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\SO'</span></span><span>          </span><span id="local-6989586621679484372"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484372"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; ShowS -&gt; ShowS
</span><a href="GHC.Show.html#protectEsc"><span class="hs-identifier hs-var">protectEsc</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3D%3D"><span class="hs-operator hs-var">==</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'H'</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\\SO&quot;</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484372"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-383"></span><span class="annot"><a href="GHC.Show.html#showLitChar"><span class="hs-identifier hs-var">showLitChar</span></a></span><span> </span><span id="local-6989586621679484371"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484371"><span class="hs-identifier hs-var">c</span></a></span></span><span>              </span><span id="local-6989586621679484370"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484370"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\\'</span></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">[String]
</span><a href="GHC.Show.html#asciiTab"><span class="hs-identifier hs-var">asciiTab</span></a></span><span class="annot"><span class="annottext">[String] -&gt; Int -&gt; String
forall a. [a] -&gt; Int -&gt; a
</span><a href="GHC.List.html#%21%21"><span class="hs-operator hs-var">!!</span></a></span><span class="annot"><span class="annottext">Char -&gt; Int
</span><a href="GHC.Base.html#ord"><span class="hs-identifier hs-var">ord</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484371"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484370"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-384"></span><span>        </span><span class="hs-comment">-- I've done manual eta-expansion here, because otherwise it's</span><span>
</span><span id="line-385"></span><span>        </span><span class="hs-comment">-- impossible to stop (asciiTab!!ord) getting floated out as an MFE</span><span>
</span><span id="line-386"></span><span>
</span><span id="line-387"></span><span class="annot"><a href="GHC.Show.html#showLitString"><span class="hs-identifier hs-type">showLitString</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-type">ShowS</span></a></span><span>
</span><span id="line-388"></span><span class="hs-comment">-- | Same as 'showLitChar', but for strings</span><span>
</span><span id="line-389"></span><span class="hs-comment">-- It converts the string to a string using Haskell escape conventions</span><span>
</span><span id="line-390"></span><span class="hs-comment">-- for non-printable characters. Does not add double-quotes around the</span><span>
</span><span id="line-391"></span><span class="hs-comment">-- whole thing; the caller should do that.</span><span>
</span><span id="line-392"></span><span class="hs-comment">-- The main difference from showLitChar (apart from the fact that the</span><span>
</span><span id="line-393"></span><span class="hs-comment">-- argument is a string not a list) is that we must escape double-quotes</span><span>
</span><span id="line-394"></span><span id="showLitString"><span class="annot"><span class="annottext">showLitString :: String -&gt; ShowS
</span><a href="GHC.Show.html#showLitString"><span class="hs-identifier hs-var hs-var">showLitString</span></a></span></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>         </span><span id="local-6989586621679484369"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484369"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484369"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-395"></span><span class="annot"><a href="GHC.Show.html#showLitString"><span class="hs-identifier hs-var">showLitString</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'&quot;'</span></span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-type">:</span></a></span><span> </span><span id="local-6989586621679484368"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484368"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484367"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484367"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\\\&quot;&quot;</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showLitString"><span class="hs-identifier hs-var">showLitString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484368"><span class="hs-identifier hs-var">cs</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484367"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-396"></span><span class="annot"><a href="GHC.Show.html#showLitString"><span class="hs-identifier hs-var">showLitString</span></a></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484366"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484366"><span class="hs-identifier hs-var">c</span></a></span></span><span>   </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-type">:</span></a></span><span> </span><span id="local-6989586621679484365"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484365"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484364"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484364"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
</span><a href="GHC.Show.html#showLitChar"><span class="hs-identifier hs-var">showLitChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484366"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showLitString"><span class="hs-identifier hs-var">showLitString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484365"><span class="hs-identifier hs-var">cs</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484364"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-397"></span><span>   </span><span class="hs-comment">-- Making 's' an explicit parameter makes it clear to GHC that</span><span>
</span><span id="line-398"></span><span>   </span><span class="hs-comment">-- showLitString has arity 2, which avoids it allocating an extra lambda</span><span>
</span><span id="line-399"></span><span>   </span><span class="hs-comment">-- The sticking point is the recursive call to (showLitString cs), which</span><span>
</span><span id="line-400"></span><span>   </span><span class="hs-comment">-- it can't figure out would be ok with arity 2.</span><span>
</span><span id="line-401"></span><span>
</span><span id="line-402"></span><span class="annot"><a href="GHC.Show.html#showMultiLineString"><span class="hs-identifier hs-type">showMultiLineString</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-403"></span><span class="hs-comment">-- | Like 'showLitString' (expand escape characters using Haskell</span><span>
</span><span id="line-404"></span><span class="hs-comment">-- escape conventions), but</span><span>
</span><span id="line-405"></span><span class="hs-comment">--   * break the string into multiple lines</span><span>
</span><span id="line-406"></span><span class="hs-comment">--   * wrap the entire thing in double quotes</span><span>
</span><span id="line-407"></span><span class="hs-comment">-- Example:  @showMultiLineString &quot;hello\ngoodbye\nblah&quot;@</span><span>
</span><span id="line-408"></span><span class="hs-comment">-- returns   @[&quot;\&quot;hello\\n\\&quot;, &quot;\\goodbye\n\\&quot;, &quot;\\blah\&quot;&quot;]@</span><span>
</span><span id="line-409"></span><span id="showMultiLineString"><span class="annot"><span class="annottext">showMultiLineString :: String -&gt; [String]
</span><a href="GHC.Show.html#showMultiLineString"><span class="hs-identifier hs-var hs-var">showMultiLineString</span></a></span></span><span> </span><span id="local-6989586621679484363"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484363"><span class="hs-identifier hs-var">str</span></a></span></span><span>
</span><span id="line-410"></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char -&gt; String -&gt; [String]
</span><a href="#local-6989586621679484362"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\&quot;'</span></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484363"><span class="hs-identifier hs-var">str</span></a></span><span>
</span><span id="line-411"></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-412"></span><span>    </span><span id="local-6989586621679484362"><span class="annot"><span class="annottext">go :: Char -&gt; String -&gt; [String]
</span><a href="#local-6989586621679484362"><span class="hs-identifier hs-var hs-var">go</span></a></span></span><span> </span><span id="local-6989586621679484360"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484360"><span class="hs-identifier hs-var">ch</span></a></span></span><span> </span><span id="local-6989586621679484359"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484359"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; String -&gt; (String, String)
forall a. (a -&gt; Bool) -&gt; [a] -&gt; ([a], [a])
</span><a href="GHC.List.html#break"><span class="hs-identifier hs-var">break</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3D%3D"><span class="hs-operator hs-var">==</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\n'</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484359"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-413"></span><span>                </span><span class="hs-special">(</span><span id="local-6989586621679484358"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484358"><span class="hs-identifier hs-var">l</span></a></span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-type">:</span></a></span><span id="local-6989586621679484357"><span class="annot"><span class="annottext">s' :: String
</span><a href="#local-6989586621679484357"><span class="hs-identifier hs-var">s'</span></a></span></span><span class="hs-glyph">@</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-type">:</span></a></span><span class="annot"><span class="annottext">String
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484360"><span class="hs-identifier hs-var">ch</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showLitString"><span class="hs-identifier hs-var">showLitString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484358"><span class="hs-identifier hs-var">l</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\\n\\&quot;</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String -&gt; [String] -&gt; [String]
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; String -&gt; [String]
</span><a href="#local-6989586621679484362"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\\'</span></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484357"><span class="hs-identifier hs-var">s'</span></a></span><span>
</span><span id="line-414"></span><span>                </span><span class="hs-special">(</span><span id="local-6989586621679484356"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484356"><span class="hs-identifier hs-var">l</span></a></span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\n&quot;</span></span><span class="hs-special">)</span><span>       </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484360"><span class="hs-identifier hs-var">ch</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showLitString"><span class="hs-identifier hs-var">showLitString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484356"><span class="hs-identifier hs-var">l</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\\n\&quot;&quot;</span></span><span class="hs-special">]</span><span>
</span><span id="line-415"></span><span>                </span><span class="hs-special">(</span><span id="local-6989586621679484355"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484355"><span class="hs-identifier hs-var">l</span></a></span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>          </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484360"><span class="hs-identifier hs-var">ch</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showLitString"><span class="hs-identifier hs-var">showLitString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484355"><span class="hs-identifier hs-var">l</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\&quot;&quot;</span></span><span class="hs-special">]</span><span>
</span><span id="line-416"></span><span>
</span><span id="line-417"></span><span class="annot"><a href="GHC.Show.html#isDec"><span class="hs-identifier hs-type">isDec</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Char"><span class="hs-identifier hs-type">Char</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span>
</span><span id="line-418"></span><span id="isDec"><span class="annot"><span class="annottext">isDec :: Char -&gt; Bool
</span><a href="GHC.Show.html#isDec"><span class="hs-identifier hs-var hs-var">isDec</span></a></span></span><span> </span><span id="local-6989586621679484354"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484354"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484354"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3E%3D"><span class="hs-operator hs-var">&gt;=</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%26%26"><span class="hs-operator hs-var">&amp;&amp;</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484354"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3C%3D"><span class="hs-operator hs-var">&lt;=</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'9'</span></span><span>
</span><span id="line-419"></span><span>
</span><span id="line-420"></span><span class="annot"><a href="GHC.Show.html#protectEsc"><span class="hs-identifier hs-type">protectEsc</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Char"><span class="hs-identifier hs-type">Char</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Bool"><span class="hs-identifier hs-type">Bool</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-type">ShowS</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-type">ShowS</span></a></span><span>
</span><span id="line-421"></span><span id="protectEsc"><span class="annot"><span class="annottext">protectEsc :: (Char -&gt; Bool) -&gt; ShowS -&gt; ShowS
</span><a href="GHC.Show.html#protectEsc"><span class="hs-identifier hs-var hs-var">protectEsc</span></a></span></span><span> </span><span id="local-6989586621679484351"><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="#local-6989586621679484351"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span id="local-6989586621679484350"><span class="annot"><span class="annottext">ShowS
</span><a href="#local-6989586621679484350"><span class="hs-identifier hs-var">f</span></a></span></span><span>             </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ShowS
</span><a href="#local-6989586621679484350"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS
</span><a href="#local-6989586621679484349"><span class="hs-identifier hs-var">cont</span></a></span><span>
</span><span id="line-422"></span><span>                             </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679484349"><span class="annot"><span class="annottext">cont :: ShowS
</span><a href="#local-6989586621679484349"><span class="hs-identifier hs-var hs-var">cont</span></a></span></span><span> </span><span id="local-6989586621679484348"><span class="annot"><span class="annottext">s :: String
</span><a href="#local-6989586621679484348"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-glyph">@</span><span class="hs-special">(</span><span id="local-6989586621679484347"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484347"><span class="hs-identifier hs-var">c</span></a></span></span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-type">:</span></a></span><span class="annot"><span class="annottext">String
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="#local-6989586621679484351"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484347"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\\&amp;&quot;</span></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484348"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-423"></span><span>                                   </span><span class="annot"><a href="#local-6989586621679484349"><span class="hs-identifier hs-var">cont</span></a></span><span> </span><span id="local-6989586621679484346"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484346"><span class="hs-identifier hs-var">s</span></a></span></span><span>             </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484346"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-424"></span><span>
</span><span id="line-425"></span><span>
</span><span id="line-426"></span><span class="annot"><a href="GHC.Show.html#asciiTab"><span class="hs-identifier hs-type">asciiTab</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-427"></span><span id="asciiTab"><span class="annot"><span class="annottext">asciiTab :: [String]
</span><a href="GHC.Show.html#asciiTab"><span class="hs-identifier hs-var hs-var">asciiTab</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-comment">-- Using an array drags in the array module.  listArray ('\NUL', ' ')</span><span>
</span><span id="line-428"></span><span>           </span><span class="hs-special">[</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;NUL&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;SOH&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;STX&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;ETX&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;EOT&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;ENQ&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;ACK&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;BEL&quot;</span></span><span class="hs-special">,</span><span>
</span><span id="line-429"></span><span>            </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;BS&quot;</span></span><span class="hs-special">,</span><span>  </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;HT&quot;</span></span><span class="hs-special">,</span><span>  </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;LF&quot;</span></span><span class="hs-special">,</span><span>  </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;VT&quot;</span></span><span class="hs-special">,</span><span>  </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;FF&quot;</span></span><span class="hs-special">,</span><span>  </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;CR&quot;</span></span><span class="hs-special">,</span><span>  </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;SO&quot;</span></span><span class="hs-special">,</span><span>  </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;SI&quot;</span></span><span class="hs-special">,</span><span>
</span><span id="line-430"></span><span>            </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;DLE&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;DC1&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;DC2&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;DC3&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;DC4&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;NAK&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;SYN&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;ETB&quot;</span></span><span class="hs-special">,</span><span>
</span><span id="line-431"></span><span>            </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;CAN&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;EM&quot;</span></span><span class="hs-special">,</span><span>  </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;SUB&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;ESC&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;FS&quot;</span></span><span class="hs-special">,</span><span>  </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;GS&quot;</span></span><span class="hs-special">,</span><span>  </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;RS&quot;</span></span><span class="hs-special">,</span><span>  </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;US&quot;</span></span><span class="hs-special">,</span><span>
</span><span id="line-432"></span><span>            </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;SP&quot;</span></span><span class="hs-special">]</span><span>
</span><span id="line-433"></span><span>
</span><span id="line-434"></span><span class="hs-comment">-- Code specific for Ints.</span><span>
</span><span id="line-435"></span><span>
</span><span id="line-436"></span><span class="hs-comment">-- | Convert an 'Int' in the range @0@..@15@ to the corresponding single</span><span>
</span><span id="line-437"></span><span class="hs-comment">-- digit 'Char'.  This function fails on other inputs, and generates</span><span>
</span><span id="line-438"></span><span class="hs-comment">-- lower-case hexadecimal digits.</span><span>
</span><span id="line-439"></span><span class="annot"><a href="GHC.Show.html#intToDigit"><span class="hs-identifier hs-type">intToDigit</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Int"><span class="hs-identifier hs-type">Int</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Char"><span class="hs-identifier hs-type">Char</span></a></span><span>
</span><span id="line-440"></span><span id="intToDigit"><span class="annot"><span class="annottext">intToDigit :: Int -&gt; Char
</span><a href="GHC.Show.html#intToDigit"><span class="hs-identifier hs-var hs-var">intToDigit</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#I%23"><span class="hs-identifier hs-type">I#</span></a></span><span> </span><span id="local-6989586621679484345"><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484345"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">)</span><span>
</span><span id="line-441"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Types.html#isTrue%23"><span class="hs-identifier hs-var">isTrue#</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484345"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Int# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#%3E%3D%23"><span class="hs-operator hs-var">&gt;=#</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><span class="hs-number">0#</span></span><span class="hs-special">)</span><span>  </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%26%26"><span class="hs-operator hs-var">&amp;&amp;</span></a></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Types.html#isTrue%23"><span class="hs-identifier hs-var">isTrue#</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484345"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Int# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#%3C%3D%23"><span class="hs-operator hs-var">&lt;=#</span></a></span><span>  </span><span class="annot"><span class="annottext">Int#
</span><span class="hs-number">9#</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Char
</span><a href="GHC.Base.html#unsafeChr"><span class="hs-identifier hs-var">unsafeChr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; Int
</span><a href="GHC.Base.html#ord"><span class="hs-identifier hs-var">ord</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Int
</span><a href="../../ghc-prim/src/GHC.Types.html#I%23"><span class="hs-identifier hs-var">I#</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484345"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-442"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Types.html#isTrue%23"><span class="hs-identifier hs-var">isTrue#</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484345"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Int# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#%3E%3D%23"><span class="hs-operator hs-var">&gt;=#</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><span class="hs-number">10#</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%26%26"><span class="hs-operator hs-var">&amp;&amp;</span></a></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Types.html#isTrue%23"><span class="hs-identifier hs-var">isTrue#</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484345"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Int# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#%3C%3D%23"><span class="hs-operator hs-var">&lt;=#</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><span class="hs-number">15#</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Char
</span><a href="GHC.Base.html#unsafeChr"><span class="hs-identifier hs-var">unsafeChr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; Int
</span><a href="GHC.Base.html#ord"><span class="hs-identifier hs-var">ord</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'a'</span></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Int
</span><a href="../../ghc-prim/src/GHC.Types.html#I%23"><span class="hs-identifier hs-var">I#</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484345"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="GHC.Num.html#-"><span class="hs-glyph hs-var">-</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">10</span></span><span class="hs-special">)</span><span>
</span><span id="line-443"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span> </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">String -&gt; Char
forall a. String -&gt; a
</span><a href="GHC.Err.html#errorWithoutStackTrace"><span class="hs-identifier hs-var">errorWithoutStackTrace</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;Char.intToDigit: not a digit &quot;</span></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; String
forall a. Show a =&gt; a -&gt; String
</span><a href="GHC.Show.html#show"><span class="hs-identifier hs-var">show</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int# -&gt; Int
</span><a href="../../ghc-prim/src/GHC.Types.html#I%23"><span class="hs-identifier hs-var">I#</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484345"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-444"></span><span>
</span><span id="line-445"></span><span class="annot"><a href="GHC.Show.html#showSignedInt"><span class="hs-identifier hs-type">showSignedInt</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Int"><span class="hs-identifier hs-type">Int</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Int"><span class="hs-identifier hs-type">Int</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Show.html#ShowS"><span class="hs-identifier hs-type">ShowS</span></a></span><span>
</span><span id="line-446"></span><span id="showSignedInt"><span class="annot"><span class="annottext">showSignedInt :: Int -&gt; Int -&gt; ShowS
</span><a href="GHC.Show.html#showSignedInt"><span class="hs-identifier hs-var hs-var">showSignedInt</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#I%23"><span class="hs-identifier hs-type">I#</span></a></span><span> </span><span id="local-6989586621679484341"><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484341"><span class="hs-identifier hs-var">p</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#I%23"><span class="hs-identifier hs-type">I#</span></a></span><span> </span><span id="local-6989586621679484340"><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484340"><span class="hs-identifier hs-var">n</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484339"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484339"><span class="hs-identifier hs-var">r</span></a></span></span><span>
</span><span id="line-447"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Types.html#isTrue%23"><span class="hs-identifier hs-var">isTrue#</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484340"><span class="hs-identifier hs-var">n</span></a></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Int# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#%3C%23"><span class="hs-operator hs-var">&lt;#</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><span class="hs-number">0#</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%26%26"><span class="hs-operator hs-var">&amp;&amp;</span></a></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Types.html#isTrue%23"><span class="hs-identifier hs-var">isTrue#</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484341"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Int# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#%3E%23"><span class="hs-operator hs-var">&gt;#</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><span class="hs-number">6#</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'('</span></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; ShowS
</span><a href="GHC.Show.html#itos"><span class="hs-identifier hs-var">itos</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484340"><span class="hs-identifier hs-var">n</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">')'</span></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484339"><span class="hs-identifier hs-var">r</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-448"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span>                              </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int# -&gt; ShowS
</span><a href="GHC.Show.html#itos"><span class="hs-identifier hs-var">itos</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484340"><span class="hs-identifier hs-var">n</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484339"><span class="hs-identifier hs-var">r</span></a></span><span>
</span><span id="line-449"></span><span>
</span><span id="line-450"></span><span class="annot"><a href="GHC.Show.html#itos"><span class="hs-identifier hs-type">itos</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Prim.html#Int%23"><span class="hs-identifier hs-type">Int#</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-451"></span><span id="itos"><span class="annot"><span class="annottext">itos :: Int# -&gt; ShowS
</span><a href="GHC.Show.html#itos"><span class="hs-identifier hs-var hs-var">itos</span></a></span></span><span> </span><span id="local-6989586621679484337"><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484337"><span class="hs-identifier hs-var">n#</span></a></span></span><span> </span><span id="local-6989586621679484336"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484336"><span class="hs-identifier hs-var">cs</span></a></span></span><span>
</span><span id="line-452"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Types.html#isTrue%23"><span class="hs-identifier hs-var">isTrue#</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484337"><span class="hs-identifier hs-var">n#</span></a></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Int# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#%3C%23"><span class="hs-operator hs-var">&lt;#</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><span class="hs-number">0#</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-453"></span><span>        </span><span class="hs-keyword">let</span><span> </span><span class="hs-glyph">!</span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#I%23"><span class="hs-identifier hs-type">I#</span></a></span><span> </span><span id="local-6989586621679484335"><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484335"><span class="hs-identifier hs-var">minInt#</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="GHC.Base.html#minInt"><span class="hs-identifier hs-var">minInt</span></a></span><span> </span><span class="hs-keyword">in</span><span>
</span><span id="line-454"></span><span>        </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Types.html#isTrue%23"><span class="hs-identifier hs-var">isTrue#</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484337"><span class="hs-identifier hs-var">n#</span></a></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Int# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#%3D%3D%23"><span class="hs-operator hs-var">==#</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484335"><span class="hs-identifier hs-var">minInt#</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-455"></span><span>                </span><span class="hs-comment">-- negateInt# minInt overflows, so we can't do that:</span><span>
</span><span id="line-456"></span><span>           </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'-'</span></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484337"><span class="hs-identifier hs-var">n#</span></a></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Int# -&gt; (# Int#, Int# #)
</span><a href="../../ghc-prim/src/GHC.Prim.html#quotRemInt%23"><span class="hs-operator hs-var">`quotRemInt#`</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><span class="hs-number">10#</span></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-457"></span><span>                       </span><span class="hs-special">(#</span><span> </span><span id="local-6989586621679484333"><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484333"><span class="hs-identifier hs-var">q</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679484332"><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484332"><span class="hs-identifier hs-var">r</span></a></span></span><span> </span><span class="hs-special">#)</span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-458"></span><span>                           </span><span class="annot"><span class="annottext">Int# -&gt; ShowS
</span><a href="#local-6989586621679484331"><span class="hs-identifier hs-var">itos'</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#negateInt%23"><span class="hs-identifier hs-var">negateInt#</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484333"><span class="hs-identifier hs-var">q</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int# -&gt; ShowS
</span><a href="#local-6989586621679484331"><span class="hs-identifier hs-var">itos'</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#negateInt%23"><span class="hs-identifier hs-var">negateInt#</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484332"><span class="hs-identifier hs-var">r</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484336"><span class="hs-identifier hs-var">cs</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-459"></span><span>           </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'-'</span></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; ShowS
</span><a href="#local-6989586621679484331"><span class="hs-identifier hs-var">itos'</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#negateInt%23"><span class="hs-identifier hs-var">negateInt#</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484337"><span class="hs-identifier hs-var">n#</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484336"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-460"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int# -&gt; ShowS
</span><a href="#local-6989586621679484331"><span class="hs-identifier hs-var">itos'</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484337"><span class="hs-identifier hs-var">n#</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484336"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-461"></span><span>    </span><span class="hs-keyword">where</span><span>
</span><span id="line-462"></span><span>    </span><span class="annot"><a href="#local-6989586621679484331"><span class="hs-identifier hs-type">itos'</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Prim.html#Int%23"><span class="hs-identifier hs-type">Int#</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-463"></span><span>    </span><span id="local-6989586621679484331"><span class="annot"><span class="annottext">itos' :: Int# -&gt; ShowS
</span><a href="#local-6989586621679484331"><span class="hs-identifier hs-var hs-var">itos'</span></a></span></span><span> </span><span id="local-6989586621679484330"><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484330"><span class="hs-identifier hs-var">x#</span></a></span></span><span> </span><span id="local-6989586621679484329"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484329"><span class="hs-identifier hs-var">cs'</span></a></span></span><span>
</span><span id="line-464"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Types.html#isTrue%23"><span class="hs-identifier hs-var">isTrue#</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484330"><span class="hs-identifier hs-var">x#</span></a></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Int# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#%3C%23"><span class="hs-operator hs-var">&lt;#</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><span class="hs-number">10#</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char# -&gt; Char
</span><a href="../../ghc-prim/src/GHC.Types.html#C%23"><span class="hs-identifier hs-var">C#</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int# -&gt; Char#
</span><a href="../../ghc-prim/src/GHC.Prim.html#chr%23"><span class="hs-identifier hs-var">chr#</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#ord%23"><span class="hs-identifier hs-var">ord#</span></a></span><span> </span><span class="annot"><span class="annottext">Char#
</span><span class="hs-char">'0'#</span></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Int# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#%2B%23"><span class="hs-operator hs-var">+#</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484330"><span class="hs-identifier hs-var">x#</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484329"><span class="hs-identifier hs-var">cs'</span></a></span><span>
</span><span id="line-465"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484330"><span class="hs-identifier hs-var">x#</span></a></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Int# -&gt; (# Int#, Int# #)
</span><a href="../../ghc-prim/src/GHC.Prim.html#quotRemInt%23"><span class="hs-operator hs-var">`quotRemInt#`</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><span class="hs-number">10#</span></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-466"></span><span>                      </span><span class="hs-special">(#</span><span> </span><span id="local-6989586621679484328"><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484328"><span class="hs-identifier hs-var">q</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679484327"><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484327"><span class="hs-identifier hs-var">r</span></a></span></span><span> </span><span class="hs-special">#)</span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-467"></span><span>                          </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Char#
</span><a href="../../ghc-prim/src/GHC.Prim.html#chr%23"><span class="hs-identifier hs-var">chr#</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#ord%23"><span class="hs-identifier hs-var">ord#</span></a></span><span> </span><span class="annot"><span class="annottext">Char#
</span><span class="hs-char">'0'#</span></span><span> </span><span class="annot"><span class="annottext">Int# -&gt; Int# -&gt; Int#
</span><a href="../../ghc-prim/src/GHC.Prim.html#%2B%23"><span class="hs-operator hs-var">+#</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484327"><span class="hs-identifier hs-var">r</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-468"></span><span>                          </span><span id="local-6989586621679484326"><span class="annot"><span class="annottext">Char#
</span><a href="#local-6989586621679484326"><span class="hs-identifier hs-var">c#</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-469"></span><span>                              </span><span class="annot"><span class="annottext">Int# -&gt; ShowS
</span><a href="#local-6989586621679484331"><span class="hs-identifier hs-var">itos'</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484328"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char# -&gt; Char
</span><a href="../../ghc-prim/src/GHC.Types.html#C%23"><span class="hs-identifier hs-var">C#</span></a></span><span> </span><span class="annot"><span class="annottext">Char#
</span><a href="#local-6989586621679484326"><span class="hs-identifier hs-var">c#</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484329"><span class="hs-identifier hs-var">cs'</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-470"></span><span>
</span><span id="line-471"></span><span class="hs-comment">--------------------------------------------------------------</span><span>
</span><span id="line-472"></span><span class="hs-comment">-- The Integer instances for Show</span><span>
</span><span id="line-473"></span><span class="hs-comment">--------------------------------------------------------------</span><span>
</span><span id="line-474"></span><span>
</span><span id="line-475"></span><span class="hs-comment">-- | @since 2.01</span><span>
</span><span id="line-476"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484323"><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="../../ghc-bignum/src/GHC.Num.Integer.html#Integer"><span class="hs-identifier hs-type">Integer</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-477"></span><span>    </span><span id="local-6989586621679484316"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; Integer -&gt; ShowS
</span><a href="#local-6989586621679484316"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span id="local-6989586621679484315"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484315"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-bignum/src/GHC.Num.Integer.html#IS"><span class="hs-identifier hs-type">IS</span></a></span><span> </span><span id="local-6989586621679484314"><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484314"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484313"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484313"><span class="hs-identifier hs-var">r</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; ShowS
forall a. Show a =&gt; Int -&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484315"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int# -&gt; Int
</span><a href="../../ghc-prim/src/GHC.Types.html#I%23"><span class="hs-identifier hs-var">I#</span></a></span><span> </span><span class="annot"><span class="annottext">Int#
</span><a href="#local-6989586621679484314"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484313"><span class="hs-identifier hs-var">r</span></a></span><span>
</span><span id="line-478"></span><span>    </span><span class="annot"><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span id="local-6989586621679484312"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484312"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span id="local-6989586621679484311"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484311"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span id="local-6989586621679484310"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484310"><span class="hs-identifier hs-var">r</span></a></span></span><span>
</span><span id="line-479"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484312"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3E"><span class="hs-operator hs-var">&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">6</span></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%26%26"><span class="hs-operator hs-var">&amp;&amp;</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484311"><span class="hs-identifier hs-var">n</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3C"><span class="hs-operator hs-var">&lt;</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">0</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'('</span></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; ShowS
</span><a href="GHC.Show.html#integerToString"><span class="hs-identifier hs-var">integerToString</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484311"><span class="hs-identifier hs-var">n</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">')'</span></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484310"><span class="hs-identifier hs-var">r</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-480"></span><span>        </span><span class="hs-comment">-- Minor point: testing p first gives better code</span><span>
</span><span id="line-481"></span><span>        </span><span class="hs-comment">-- in the not-uncommon case where the p argument</span><span>
</span><span id="line-482"></span><span>        </span><span class="hs-comment">-- is a constant</span><span>
</span><span id="line-483"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; ShowS
</span><a href="GHC.Show.html#integerToString"><span class="hs-identifier hs-var">integerToString</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484311"><span class="hs-identifier hs-var">n</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484310"><span class="hs-identifier hs-var">r</span></a></span><span>
</span><span id="line-484"></span><span>    </span><span id="local-6989586621679484306"><span class="annot"><span class="annottext">showList :: [Integer] -&gt; ShowS
</span><a href="#local-6989586621679484306"><span class="hs-identifier hs-var hs-var hs-var hs-var">showList</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; ShowS) -&gt; [Integer] -&gt; ShowS
forall a. (a -&gt; ShowS) -&gt; [a] -&gt; ShowS
</span><a href="GHC.Show.html#showList__"><span class="hs-identifier hs-var">showList__</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Integer -&gt; ShowS
forall a. Show a =&gt; Int -&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">)</span><span>
</span><span id="line-485"></span><span>
</span><span id="line-486"></span><span class="hs-comment">-- | @since 4.8.0.0</span><span>
</span><span id="line-487"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484301"><span id="local-6989586621679484303"><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="../../ghc-bignum/src/GHC.Num.Natural.html#Natural"><span class="hs-identifier hs-type">Natural</span></a></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-488"></span><span>    </span><span id="local-6989586621679484298"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; Natural -&gt; ShowS
</span><a href="#local-6989586621679484298"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span id="local-6989586621679484297"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484297"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-bignum/src/GHC.Num.Natural.html#NS"><span class="hs-identifier hs-type">NS</span></a></span><span> </span><span id="local-6989586621679484296"><span class="annot"><span class="annottext">Word#
</span><a href="#local-6989586621679484296"><span class="hs-identifier hs-var">w</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Word -&gt; ShowS
forall a. Show a =&gt; Int -&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484297"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Word# -&gt; Word
</span><a href="../../ghc-prim/src/GHC.Types.html#W%23"><span class="hs-identifier hs-var">W#</span></a></span><span> </span><span class="annot"><span class="annottext">Word#
</span><a href="#local-6989586621679484296"><span class="hs-identifier hs-var">w</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-489"></span><span>    </span><span class="annot"><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span id="local-6989586621679484295"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484295"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span id="local-6989586621679484294"><span class="annot"><span class="annottext">Natural
</span><a href="#local-6989586621679484294"><span class="hs-identifier hs-var">n</span></a></span></span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Integer -&gt; ShowS
forall a. Show a =&gt; Int -&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484295"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Natural -&gt; Integer
</span><a href="../../ghc-bignum/src/GHC.Num.Integer.html#integerFromNatural"><span class="hs-identifier hs-var">integerFromNatural</span></a></span><span> </span><span class="annot"><span class="annottext">Natural
</span><a href="#local-6989586621679484294"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-490"></span><span>
</span><span id="line-491"></span><span class="hs-comment">-- Divide and conquer implementation of string conversion</span><span>
</span><span id="line-492"></span><span class="annot"><a href="GHC.Show.html#integerToString"><span class="hs-identifier hs-type">integerToString</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-bignum/src/GHC.Num.Integer.html#Integer"><span class="hs-identifier hs-type">Integer</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-493"></span><span id="integerToString"><span class="annot"><span class="annottext">integerToString :: Integer -&gt; ShowS
</span><a href="GHC.Show.html#integerToString"><span class="hs-identifier hs-var hs-var">integerToString</span></a></span></span><span> </span><span id="local-6989586621679484293"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484293"><span class="hs-identifier hs-var">n0</span></a></span></span><span> </span><span id="local-6989586621679484292"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484292"><span class="hs-identifier hs-var">cs0</span></a></span></span><span>
</span><span id="line-494"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484293"><span class="hs-identifier hs-var">n0</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3C"><span class="hs-operator hs-var">&lt;</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">0</span></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'-'</span></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; ShowS
</span><a href="#local-6989586621679484291"><span class="hs-identifier hs-var">integerToString'</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">-</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484293"><span class="hs-identifier hs-var">n0</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484292"><span class="hs-identifier hs-var">cs0</span></a></span><span>
</span><span id="line-495"></span><span>    </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; ShowS
</span><a href="#local-6989586621679484291"><span class="hs-identifier hs-var">integerToString'</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484293"><span class="hs-identifier hs-var">n0</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484292"><span class="hs-identifier hs-var">cs0</span></a></span><span>
</span><span id="line-496"></span><span>    </span><span class="hs-keyword">where</span><span>
</span><span id="line-497"></span><span>    </span><span class="annot"><a href="#local-6989586621679484291"><span class="hs-identifier hs-type">integerToString'</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-bignum/src/GHC.Num.Integer.html#Integer"><span class="hs-identifier hs-type">Integer</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-498"></span><span>    </span><span id="local-6989586621679484291"><span class="annot"><span class="annottext">integerToString' :: Integer -&gt; ShowS
</span><a href="#local-6989586621679484291"><span class="hs-identifier hs-var hs-var">integerToString'</span></a></span></span><span> </span><span id="local-6989586621679484290"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484290"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span id="local-6989586621679484289"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484289"><span class="hs-identifier hs-var">cs</span></a></span></span><span>
</span><span id="line-499"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484290"><span class="hs-identifier hs-var">n</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3C"><span class="hs-operator hs-var">&lt;</span></a></span><span> </span><span class="hs-identifier">BASE</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">jhead</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">fromInteger</span><span> </span><span class="hs-identifier">n</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">cs</span><span>
</span><span id="line-500"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Integer] -&gt; ShowS
</span><a href="#local-6989586621679484287"><span class="hs-identifier hs-var">jprinth</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; [Integer]
</span><a href="#local-6989586621679484286"><span class="hs-identifier hs-var">jsplitf</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-identifier">BASE</span><span class="hs-operator">*</span><span class="hs-identifier">BASE</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">n</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">cs</span><span>
</span><span id="line-501"></span><span>
</span><span id="line-502"></span><span>    </span><span class="hs-comment">-- Split n into digits in base p. We first split n into digits</span><span>
</span><span id="line-503"></span><span>    </span><span class="hs-comment">-- in base p*p and then split each of these digits into two.</span><span>
</span><span id="line-504"></span><span>    </span><span class="hs-comment">-- Note that the first 'digit' modulo p*p may have a leading zero</span><span>
</span><span id="line-505"></span><span>    </span><span class="hs-comment">-- in base p that we need to drop - this is what jsplith takes care of.</span><span>
</span><span id="line-506"></span><span>    </span><span class="hs-comment">-- jsplitb the handles the remaining digits.</span><span>
</span><span id="line-507"></span><span>    </span><span class="annot"><a href="#local-6989586621679484286"><span class="hs-identifier hs-type">jsplitf</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-bignum/src/GHC.Num.Integer.html#Integer"><span class="hs-identifier hs-type">Integer</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../ghc-bignum/src/GHC.Num.Integer.html#Integer"><span class="hs-identifier hs-type">Integer</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../ghc-bignum/src/GHC.Num.Integer.html#Integer"><span class="hs-identifier hs-type">Integer</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-508"></span><span>    </span><span id="local-6989586621679484286"><span class="annot"><span class="annottext">jsplitf :: Integer -&gt; Integer -&gt; [Integer]
</span><a href="#local-6989586621679484286"><span class="hs-identifier hs-var hs-var">jsplitf</span></a></span></span><span> </span><span id="local-6989586621679484284"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484284"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span id="local-6989586621679484283"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484283"><span class="hs-identifier hs-var">n</span></a></span></span><span>
</span><span id="line-509"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484284"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3E"><span class="hs-operator hs-var">&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484283"><span class="hs-identifier hs-var">n</span></a></span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484283"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-510"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; [Integer] -&gt; [Integer]
</span><a href="#local-6989586621679484282"><span class="hs-identifier hs-var">jsplith</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484284"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; [Integer]
</span><a href="#local-6989586621679484286"><span class="hs-identifier hs-var">jsplitf</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484284"><span class="hs-identifier hs-var">p</span></a></span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484284"><span class="hs-identifier hs-var">p</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484283"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-511"></span><span>
</span><span id="line-512"></span><span>    </span><span class="annot"><a href="#local-6989586621679484282"><span class="hs-identifier hs-type">jsplith</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-bignum/src/GHC.Num.Integer.html#Integer"><span class="hs-identifier hs-type">Integer</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../ghc-bignum/src/GHC.Num.Integer.html#Integer"><span class="hs-identifier hs-type">Integer</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../ghc-bignum/src/GHC.Num.Integer.html#Integer"><span class="hs-identifier hs-type">Integer</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-513"></span><span>    </span><span id="local-6989586621679484282"><span class="annot"><span class="annottext">jsplith :: Integer -&gt; [Integer] -&gt; [Integer]
</span><a href="#local-6989586621679484282"><span class="hs-identifier hs-var hs-var">jsplith</span></a></span></span><span> </span><span id="local-6989586621679484281"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484281"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484280"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484280"><span class="hs-identifier hs-var">n</span></a></span></span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-type">:</span></a></span><span id="local-6989586621679484279"><span class="annot"><span class="annottext">[Integer]
</span><a href="#local-6989586621679484279"><span class="hs-identifier hs-var">ns</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-514"></span><span>        </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484280"><span class="hs-identifier hs-var">n</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; (# Integer, Integer #)
</span><a href="../../ghc-bignum/src/GHC.Num.Integer.html#integerQuotRem%23"><span class="hs-operator hs-var">`integerQuotRem#`</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484281"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-515"></span><span>        </span><span class="hs-special">(#</span><span> </span><span id="local-6989586621679484278"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484278"><span class="hs-identifier hs-var">q</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679484277"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484277"><span class="hs-identifier hs-var">r</span></a></span></span><span> </span><span class="hs-special">#)</span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-516"></span><span>            </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484278"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3E"><span class="hs-operator hs-var">&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">0</span></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484278"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; [Integer] -&gt; [Integer]
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484277"><span class="hs-identifier hs-var">r</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; [Integer] -&gt; [Integer]
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; [Integer] -&gt; [Integer]
</span><a href="#local-6989586621679484276"><span class="hs-identifier hs-var">jsplitb</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484281"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">[Integer]
</span><a href="#local-6989586621679484279"><span class="hs-identifier hs-var">ns</span></a></span><span>
</span><span id="line-517"></span><span>                     </span><span class="hs-keyword">else</span><span>     </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484277"><span class="hs-identifier hs-var">r</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; [Integer] -&gt; [Integer]
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; [Integer] -&gt; [Integer]
</span><a href="#local-6989586621679484276"><span class="hs-identifier hs-var">jsplitb</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484281"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">[Integer]
</span><a href="#local-6989586621679484279"><span class="hs-identifier hs-var">ns</span></a></span><span>
</span><span id="line-518"></span><span>    </span><span class="annot"><a href="#local-6989586621679484282"><span class="hs-identifier hs-var">jsplith</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; [Integer]
forall a. String -&gt; a
</span><a href="GHC.Err.html#errorWithoutStackTrace"><span class="hs-identifier hs-var">errorWithoutStackTrace</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;jsplith: []&quot;</span></span><span>
</span><span id="line-519"></span><span>
</span><span id="line-520"></span><span>    </span><span class="annot"><a href="#local-6989586621679484276"><span class="hs-identifier hs-type">jsplitb</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-bignum/src/GHC.Num.Integer.html#Integer"><span class="hs-identifier hs-type">Integer</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../ghc-bignum/src/GHC.Num.Integer.html#Integer"><span class="hs-identifier hs-type">Integer</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../ghc-bignum/src/GHC.Num.Integer.html#Integer"><span class="hs-identifier hs-type">Integer</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-521"></span><span>    </span><span id="local-6989586621679484276"><span class="annot"><span class="annottext">jsplitb :: Integer -&gt; [Integer] -&gt; [Integer]
</span><a href="#local-6989586621679484276"><span class="hs-identifier hs-var hs-var">jsplitb</span></a></span></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
</span><span id="line-522"></span><span>    </span><span class="annot"><a href="#local-6989586621679484276"><span class="hs-identifier hs-var">jsplitb</span></a></span><span> </span><span id="local-6989586621679484275"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484275"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484274"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484274"><span class="hs-identifier hs-var">n</span></a></span></span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-type">:</span></a></span><span id="local-6989586621679484273"><span class="annot"><span class="annottext">[Integer]
</span><a href="#local-6989586621679484273"><span class="hs-identifier hs-var">ns</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484274"><span class="hs-identifier hs-var">n</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; (# Integer, Integer #)
</span><a href="../../ghc-bignum/src/GHC.Num.Integer.html#integerQuotRem%23"><span class="hs-operator hs-var">`integerQuotRem#`</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484275"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-523"></span><span>                       </span><span class="hs-special">(#</span><span> </span><span id="local-6989586621679484272"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484272"><span class="hs-identifier hs-var">q</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679484271"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484271"><span class="hs-identifier hs-var">r</span></a></span></span><span> </span><span class="hs-special">#)</span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-524"></span><span>                           </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484272"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; [Integer] -&gt; [Integer]
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484271"><span class="hs-identifier hs-var">r</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; [Integer] -&gt; [Integer]
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; [Integer] -&gt; [Integer]
</span><a href="#local-6989586621679484276"><span class="hs-identifier hs-var">jsplitb</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484275"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">[Integer]
</span><a href="#local-6989586621679484273"><span class="hs-identifier hs-var">ns</span></a></span><span>
</span><span id="line-525"></span><span>
</span><span id="line-526"></span><span>    </span><span class="hs-comment">-- Convert a number that has been split into digits in base BASE^2</span><span>
</span><span id="line-527"></span><span>    </span><span class="hs-comment">-- this includes a last splitting step and then conversion of digits</span><span>
</span><span id="line-528"></span><span>    </span><span class="hs-comment">-- that all fit into a machine word.</span><span>
</span><span id="line-529"></span><span>    </span><span class="annot"><a href="#local-6989586621679484287"><span class="hs-identifier hs-type">jprinth</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../ghc-bignum/src/GHC.Num.Integer.html#Integer"><span class="hs-identifier hs-type">Integer</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-530"></span><span>    </span><span id="local-6989586621679484287"><span class="annot"><span class="annottext">jprinth :: [Integer] -&gt; ShowS
</span><a href="#local-6989586621679484287"><span class="hs-identifier hs-var hs-var">jprinth</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484270"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484270"><span class="hs-identifier hs-var">n</span></a></span></span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-type">:</span></a></span><span id="local-6989586621679484269"><span class="annot"><span class="annottext">[Integer]
</span><a href="#local-6989586621679484269"><span class="hs-identifier hs-var">ns</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484268"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484268"><span class="hs-identifier hs-var">cs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-531"></span><span>        </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484270"><span class="hs-identifier hs-var">n</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; (# Integer, Integer #)
</span><a href="../../ghc-bignum/src/GHC.Num.Integer.html#integerQuotRem%23"><span class="hs-operator hs-var">`integerQuotRem#`</span></a></span><span> </span><span class="hs-identifier">BASE</span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-532"></span><span>        </span><span class="hs-special">(#</span><span> </span><span id="local-6989586621679484267"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484267"><span class="hs-identifier hs-var">q'</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679484266"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484266"><span class="hs-identifier hs-var">r'</span></a></span></span><span> </span><span class="hs-special">#)</span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-533"></span><span>            </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679484264"><span class="annot"><span class="annottext">q :: Int
</span><a href="#local-6989586621679484264"><span class="hs-identifier hs-var hs-var">q</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Int
forall a. Num a =&gt; Integer -&gt; a
</span><a href="GHC.Num.html#fromInteger"><span class="hs-identifier hs-var">fromInteger</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484267"><span class="hs-identifier hs-var">q'</span></a></span><span>
</span><span id="line-534"></span><span>                </span><span id="local-6989586621679484262"><span class="annot"><span class="annottext">r :: Int
</span><a href="#local-6989586621679484262"><span class="hs-identifier hs-var hs-var">r</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Int
forall a. Num a =&gt; Integer -&gt; a
</span><a href="GHC.Num.html#fromInteger"><span class="hs-identifier hs-var">fromInteger</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484266"><span class="hs-identifier hs-var">r'</span></a></span><span>
</span><span id="line-535"></span><span>            </span><span class="hs-keyword">in</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484264"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3E"><span class="hs-operator hs-var">&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Int -&gt; ShowS
</span><a href="#local-6989586621679484288"><span class="hs-identifier hs-var">jhead</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484264"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; ShowS
</span><a href="#local-6989586621679484261"><span class="hs-identifier hs-var">jblock</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484262"><span class="hs-identifier hs-var">r</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">[Integer] -&gt; ShowS
</span><a href="#local-6989586621679484260"><span class="hs-identifier hs-var">jprintb</span></a></span><span> </span><span class="annot"><span class="annottext">[Integer]
</span><a href="#local-6989586621679484269"><span class="hs-identifier hs-var">ns</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484268"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-536"></span><span>                        </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">Int -&gt; ShowS
</span><a href="#local-6989586621679484288"><span class="hs-identifier hs-var">jhead</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484262"><span class="hs-identifier hs-var">r</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">[Integer] -&gt; ShowS
</span><a href="#local-6989586621679484260"><span class="hs-identifier hs-var">jprintb</span></a></span><span> </span><span class="annot"><span class="annottext">[Integer]
</span><a href="#local-6989586621679484269"><span class="hs-identifier hs-var">ns</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484268"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-537"></span><span>    </span><span class="annot"><a href="#local-6989586621679484287"><span class="hs-identifier hs-var">jprinth</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ShowS
forall a. String -&gt; a
</span><a href="GHC.Err.html#errorWithoutStackTrace"><span class="hs-identifier hs-var">errorWithoutStackTrace</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;jprinth []&quot;</span></span><span>
</span><span id="line-538"></span><span>
</span><span id="line-539"></span><span>    </span><span class="annot"><a href="#local-6989586621679484260"><span class="hs-identifier hs-type">jprintb</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="../../ghc-bignum/src/GHC.Num.Integer.html#Integer"><span class="hs-identifier hs-type">Integer</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-540"></span><span>    </span><span id="local-6989586621679484260"><span class="annot"><span class="annottext">jprintb :: [Integer] -&gt; ShowS
</span><a href="#local-6989586621679484260"><span class="hs-identifier hs-var hs-var">jprintb</span></a></span></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>     </span><span id="local-6989586621679484259"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484259"><span class="hs-identifier hs-var">cs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484259"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-541"></span><span>    </span><span class="annot"><a href="#local-6989586621679484260"><span class="hs-identifier hs-var">jprintb</span></a></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679484258"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484258"><span class="hs-identifier hs-var">n</span></a></span></span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-type">:</span></a></span><span id="local-6989586621679484257"><span class="annot"><span class="annottext">[Integer]
</span><a href="#local-6989586621679484257"><span class="hs-identifier hs-var">ns</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679484256"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484256"><span class="hs-identifier hs-var">cs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484258"><span class="hs-identifier hs-var">n</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; (# Integer, Integer #)
</span><a href="../../ghc-bignum/src/GHC.Num.Integer.html#integerQuotRem%23"><span class="hs-operator hs-var">`integerQuotRem#`</span></a></span><span> </span><span class="hs-identifier">BASE</span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-542"></span><span>                        </span><span class="hs-special">(#</span><span> </span><span id="local-6989586621679484255"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484255"><span class="hs-identifier hs-var">q'</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679484254"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484254"><span class="hs-identifier hs-var">r'</span></a></span></span><span> </span><span class="hs-special">#)</span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-543"></span><span>                            </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679484252"><span class="annot"><span class="annottext">q :: Int
</span><a href="#local-6989586621679484252"><span class="hs-identifier hs-var hs-var">q</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Int
forall a. Num a =&gt; Integer -&gt; a
</span><a href="GHC.Num.html#fromInteger"><span class="hs-identifier hs-var">fromInteger</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484255"><span class="hs-identifier hs-var">q'</span></a></span><span>
</span><span id="line-544"></span><span>                                </span><span id="local-6989586621679484250"><span class="annot"><span class="annottext">r :: Int
</span><a href="#local-6989586621679484250"><span class="hs-identifier hs-var hs-var">r</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Int
forall a. Num a =&gt; Integer -&gt; a
</span><a href="GHC.Num.html#fromInteger"><span class="hs-identifier hs-var">fromInteger</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679484254"><span class="hs-identifier hs-var">r'</span></a></span><span>
</span><span id="line-545"></span><span>                            </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">Int -&gt; ShowS
</span><a href="#local-6989586621679484261"><span class="hs-identifier hs-var">jblock</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484252"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; ShowS
</span><a href="#local-6989586621679484261"><span class="hs-identifier hs-var">jblock</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484250"><span class="hs-identifier hs-var">r</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">[Integer] -&gt; ShowS
</span><a href="#local-6989586621679484260"><span class="hs-identifier hs-var">jprintb</span></a></span><span> </span><span class="annot"><span class="annottext">[Integer]
</span><a href="#local-6989586621679484257"><span class="hs-identifier hs-var">ns</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484256"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-546"></span><span>
</span><span id="line-547"></span><span>    </span><span class="hs-comment">-- Convert an integer that fits into a machine word. Again, we have two</span><span>
</span><span id="line-548"></span><span>    </span><span class="hs-comment">-- functions, one that drops leading zeros (jhead) and one that doesn't</span><span>
</span><span id="line-549"></span><span>    </span><span class="hs-comment">-- (jblock)</span><span>
</span><span id="line-550"></span><span>    </span><span class="annot"><a href="#local-6989586621679484288"><span class="hs-identifier hs-type">jhead</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Int"><span class="hs-identifier hs-type">Int</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-551"></span><span>    </span><span id="local-6989586621679484288"><span class="annot"><span class="annottext">jhead :: Int -&gt; ShowS
</span><a href="#local-6989586621679484288"><span class="hs-identifier hs-var hs-var">jhead</span></a></span></span><span> </span><span id="local-6989586621679484249"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484249"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span id="local-6989586621679484248"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484248"><span class="hs-identifier hs-var">cs</span></a></span></span><span>
</span><span id="line-552"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484249"><span class="hs-identifier hs-var">n</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3C"><span class="hs-operator hs-var">&lt;</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">10</span></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Char
</span><a href="GHC.Base.html#unsafeChr"><span class="hs-identifier hs-var">unsafeChr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; Int
</span><a href="GHC.Base.html#ord"><span class="hs-identifier hs-var">ord</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484249"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-553"></span><span>            </span><span id="local-6989586621679484247"><span class="annot"><span class="annottext">c :: Char
</span><a href="#local-6989586621679484247"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-glyph">@</span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#C%23"><span class="hs-identifier hs-type">C#</span></a></span><span> </span><span class="annot"><span class="annottext">Char#
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484247"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484248"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-554"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Char
</span><a href="GHC.Base.html#unsafeChr"><span class="hs-identifier hs-var">unsafeChr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; Int
</span><a href="GHC.Base.html#ord"><span class="hs-identifier hs-var">ord</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484246"><span class="hs-identifier hs-var">r</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-555"></span><span>            </span><span id="local-6989586621679484245"><span class="annot"><span class="annottext">c :: Char
</span><a href="#local-6989586621679484245"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-glyph">@</span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#C%23"><span class="hs-identifier hs-type">C#</span></a></span><span> </span><span class="annot"><span class="annottext">Char#
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int -&gt; ShowS
</span><a href="#local-6989586621679484288"><span class="hs-identifier hs-var">jhead</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484244"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484245"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484248"><span class="hs-identifier hs-var">cs</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-556"></span><span>        </span><span class="hs-keyword">where</span><span>
</span><span id="line-557"></span><span>        </span><span class="hs-special">(</span><span id="local-6989586621679484244"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484244"><span class="hs-identifier hs-var">q</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679484246"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484246"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484249"><span class="hs-identifier hs-var">n</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; (Int, Int)
</span><a href="GHC.Base.html#quotRemInt"><span class="hs-operator hs-var">`quotRemInt`</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">10</span></span><span>
</span><span id="line-558"></span><span>
</span><span id="line-559"></span><span>    </span><span id="local-6989586621679484261"><span class="annot"><span class="annottext">jblock :: Int -&gt; ShowS
</span><a href="#local-6989586621679484261"><span class="hs-identifier hs-var hs-var">jblock</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; ShowS
</span><a href="#local-6989586621679484242"><span class="hs-identifier hs-var">jblock'</span></a></span><span> </span><span class="hs-comment">{- ' -}</span><span> </span><span class="hs-identifier">DIGITS</span><span>
</span><span id="line-560"></span><span>
</span><span id="line-561"></span><span>    </span><span class="annot"><a href="#local-6989586621679484242"><span class="hs-identifier hs-type">jblock'</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Int"><span class="hs-identifier hs-type">Int</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#Int"><span class="hs-identifier hs-type">Int</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>
</span><span id="line-562"></span><span>    </span><span id="local-6989586621679484242"><span class="annot"><span class="annottext">jblock' :: Int -&gt; Int -&gt; ShowS
</span><a href="#local-6989586621679484242"><span class="hs-identifier hs-var hs-var">jblock'</span></a></span></span><span> </span><span id="local-6989586621679484241"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484241"><span class="hs-identifier hs-var">d</span></a></span></span><span> </span><span id="local-6989586621679484240"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484240"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span id="local-6989586621679484239"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484239"><span class="hs-identifier hs-var">cs</span></a></span></span><span>
</span><span id="line-563"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484241"><span class="hs-identifier hs-var">d</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3D%3D"><span class="hs-operator hs-var">==</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Char
</span><a href="GHC.Base.html#unsafeChr"><span class="hs-identifier hs-var">unsafeChr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; Int
</span><a href="GHC.Base.html#ord"><span class="hs-identifier hs-var">ord</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484240"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-564"></span><span>             </span><span id="local-6989586621679484238"><span class="annot"><span class="annottext">c :: Char
</span><a href="#local-6989586621679484238"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-glyph">@</span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#C%23"><span class="hs-identifier hs-type">C#</span></a></span><span> </span><span class="annot"><span class="annottext">Char#
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484238"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484239"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-565"></span><span>        </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Char
</span><a href="GHC.Base.html#unsafeChr"><span class="hs-identifier hs-var">unsafeChr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; Int
</span><a href="GHC.Base.html#ord"><span class="hs-identifier hs-var">ord</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484237"><span class="hs-identifier hs-var">r</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-566"></span><span>             </span><span id="local-6989586621679484236"><span class="annot"><span class="annottext">c :: Char
</span><a href="#local-6989586621679484236"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-glyph">@</span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#C%23"><span class="hs-identifier hs-type">C#</span></a></span><span> </span><span class="annot"><span class="annottext">Char#
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; ShowS
</span><a href="#local-6989586621679484242"><span class="hs-identifier hs-var">jblock'</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484241"><span class="hs-identifier hs-var">d</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="GHC.Num.html#-"><span class="hs-glyph hs-var">-</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484235"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679484236"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; ShowS
forall a. a -&gt; [a] -&gt; [a]
</span><a href="../../ghc-prim/src/GHC.Types.html#%3A"><span class="hs-glyph hs-var">:</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484239"><span class="hs-identifier hs-var">cs</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-567"></span><span>        </span><span class="hs-keyword">where</span><span>
</span><span id="line-568"></span><span>        </span><span class="hs-special">(</span><span id="local-6989586621679484235"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484235"><span class="hs-identifier hs-var">q</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679484237"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484237"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484240"><span class="hs-identifier hs-var">n</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; (Int, Int)
</span><a href="GHC.Base.html#quotRemInt"><span class="hs-operator hs-var">`quotRemInt`</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">10</span></span><span>
</span><span id="line-569"></span><span>
</span><span id="line-570"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679484230"><span id="local-6989586621679484232"><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#KindRep"><span class="hs-identifier hs-type">KindRep</span></a></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-571"></span><span>  </span><span id="local-6989586621679484202"><span class="annot"><span class="annottext">showsPrec :: Int -&gt; KindRep -&gt; ShowS
</span><a href="#local-6989586621679484202"><span class="hs-identifier hs-var hs-var hs-var hs-var">showsPrec</span></a></span></span><span> </span><span id="local-6989586621679484201"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484201"><span class="hs-identifier hs-var">d</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#KindRepVar"><span class="hs-identifier hs-type">KindRepVar</span></a></span><span> </span><span id="local-6989586621679484200"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484200"><span class="hs-identifier hs-var">v</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; ShowS -&gt; ShowS
</span><a href="GHC.Show.html#showParen"><span class="hs-identifier hs-var">showParen</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484201"><span class="hs-identifier hs-var">d</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3E"><span class="hs-operator hs-var">&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">10</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(ShowS -&gt; ShowS) -&gt; ShowS -&gt; ShowS
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-572"></span><span>    </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;KindRepVar &quot;</span></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; ShowS
forall a. Show a =&gt; Int -&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">11</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484200"><span class="hs-identifier hs-var">v</span></a></span><span>
</span><span id="line-573"></span><span>  </span><span class="annot"><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span id="local-6989586621679484199"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484199"><span class="hs-identifier hs-var">d</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#KindRepTyConApp"><span class="hs-identifier hs-type">KindRepTyConApp</span></a></span><span> </span><span id="local-6989586621679484198"><span class="annot"><span class="annottext">TyCon
</span><a href="#local-6989586621679484198"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span id="local-6989586621679484197"><span class="annot"><span class="annottext">[KindRep]
</span><a href="#local-6989586621679484197"><span class="hs-identifier hs-var">q</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; ShowS -&gt; ShowS
</span><a href="GHC.Show.html#showParen"><span class="hs-identifier hs-var">showParen</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484199"><span class="hs-identifier hs-var">d</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3E"><span class="hs-operator hs-var">&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">10</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(ShowS -&gt; ShowS) -&gt; ShowS -&gt; ShowS
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-574"></span><span>    </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;KindRepTyConApp &quot;</span></span><span>
</span><span id="line-575"></span><span>      </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; TyCon -&gt; ShowS
forall a. Show a =&gt; Int -&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">11</span></span><span> </span><span class="annot"><span class="annottext">TyCon
</span><a href="#local-6989586621679484198"><span class="hs-identifier hs-var">p</span></a></span><span>
</span><span id="line-576"></span><span>      </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot; &quot;</span></span><span>
</span><span id="line-577"></span><span>      </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; [KindRep] -&gt; ShowS
forall a. Show a =&gt; Int -&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">11</span></span><span> </span><span class="annot"><span class="annottext">[KindRep]
</span><a href="#local-6989586621679484197"><span class="hs-identifier hs-var">q</span></a></span><span>
</span><span id="line-578"></span><span>  </span><span class="annot"><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span id="local-6989586621679484196"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484196"><span class="hs-identifier hs-var">d</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#KindRepApp"><span class="hs-identifier hs-type">KindRepApp</span></a></span><span> </span><span id="local-6989586621679484195"><span class="annot"><span class="annottext">KindRep
</span><a href="#local-6989586621679484195"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span id="local-6989586621679484194"><span class="annot"><span class="annottext">KindRep
</span><a href="#local-6989586621679484194"><span class="hs-identifier hs-var">q</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; ShowS -&gt; ShowS
</span><a href="GHC.Show.html#showParen"><span class="hs-identifier hs-var">showParen</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484196"><span class="hs-identifier hs-var">d</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3E"><span class="hs-operator hs-var">&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">10</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(ShowS -&gt; ShowS) -&gt; ShowS -&gt; ShowS
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-579"></span><span>    </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;KindRepApp &quot;</span></span><span>
</span><span id="line-580"></span><span>      </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; KindRep -&gt; ShowS
forall a. Show a =&gt; Int -&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">11</span></span><span> </span><span class="annot"><span class="annottext">KindRep
</span><a href="#local-6989586621679484195"><span class="hs-identifier hs-var">p</span></a></span><span>
</span><span id="line-581"></span><span>      </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot; &quot;</span></span><span>
</span><span id="line-582"></span><span>      </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; KindRep -&gt; ShowS
forall a. Show a =&gt; Int -&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">11</span></span><span> </span><span class="annot"><span class="annottext">KindRep
</span><a href="#local-6989586621679484194"><span class="hs-identifier hs-var">q</span></a></span><span>
</span><span id="line-583"></span><span>  </span><span class="annot"><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span id="local-6989586621679484193"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484193"><span class="hs-identifier hs-var">d</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#KindRepFun"><span class="hs-identifier hs-type">KindRepFun</span></a></span><span> </span><span id="local-6989586621679484192"><span class="annot"><span class="annottext">KindRep
</span><a href="#local-6989586621679484192"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span id="local-6989586621679484191"><span class="annot"><span class="annottext">KindRep
</span><a href="#local-6989586621679484191"><span class="hs-identifier hs-var">q</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; ShowS -&gt; ShowS
</span><a href="GHC.Show.html#showParen"><span class="hs-identifier hs-var">showParen</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484193"><span class="hs-identifier hs-var">d</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3E"><span class="hs-operator hs-var">&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">10</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(ShowS -&gt; ShowS) -&gt; ShowS -&gt; ShowS
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-584"></span><span>    </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;KindRepFun &quot;</span></span><span>
</span><span id="line-585"></span><span>      </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; KindRep -&gt; ShowS
forall a. Show a =&gt; Int -&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">11</span></span><span> </span><span class="annot"><span class="annottext">KindRep
</span><a href="#local-6989586621679484192"><span class="hs-identifier hs-var">p</span></a></span><span>
</span><span id="line-586"></span><span>      </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot; &quot;</span></span><span>
</span><span id="line-587"></span><span>      </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; KindRep -&gt; ShowS
forall a. Show a =&gt; Int -&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">11</span></span><span> </span><span class="annot"><span class="annottext">KindRep
</span><a href="#local-6989586621679484191"><span class="hs-identifier hs-var">q</span></a></span><span>
</span><span id="line-588"></span><span>  </span><span class="annot"><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span id="local-6989586621679484190"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484190"><span class="hs-identifier hs-var">d</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#KindRepTYPE"><span class="hs-identifier hs-type">KindRepTYPE</span></a></span><span> </span><span id="local-6989586621679484189"><span class="annot"><span class="annottext">RuntimeRep
</span><a href="#local-6989586621679484189"><span class="hs-identifier hs-var">rep</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; ShowS -&gt; ShowS
</span><a href="GHC.Show.html#showParen"><span class="hs-identifier hs-var">showParen</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484190"><span class="hs-identifier hs-var">d</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3E"><span class="hs-operator hs-var">&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">10</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(ShowS -&gt; ShowS) -&gt; ShowS -&gt; ShowS
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-589"></span><span>    </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;KindRepTYPE &quot;</span></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; RuntimeRep -&gt; ShowS
forall a. Show a =&gt; Int -&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">11</span></span><span> </span><span class="annot"><span class="annottext">RuntimeRep
</span><a href="#local-6989586621679484189"><span class="hs-identifier hs-var">rep</span></a></span><span>
</span><span id="line-590"></span><span>  </span><span class="annot"><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span id="local-6989586621679484188"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484188"><span class="hs-identifier hs-var">d</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#KindRepTypeLitS"><span class="hs-identifier hs-type">KindRepTypeLitS</span></a></span><span> </span><span id="local-6989586621679484187"><span class="annot"><span class="annottext">TypeLitSort
</span><a href="#local-6989586621679484187"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span id="local-6989586621679484186"><span class="annot"><span class="annottext">Addr#
</span><a href="#local-6989586621679484186"><span class="hs-identifier hs-var">q</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; ShowS -&gt; ShowS
</span><a href="GHC.Show.html#showParen"><span class="hs-identifier hs-var">showParen</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484188"><span class="hs-identifier hs-var">d</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3E"><span class="hs-operator hs-var">&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">10</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(ShowS -&gt; ShowS) -&gt; ShowS -&gt; ShowS
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-591"></span><span>    </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;KindRepTypeLitS &quot;</span></span><span>
</span><span id="line-592"></span><span>      </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; TypeLitSort -&gt; ShowS
forall a. Show a =&gt; Int -&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">11</span></span><span> </span><span class="annot"><span class="annottext">TypeLitSort
</span><a href="#local-6989586621679484187"><span class="hs-identifier hs-var">p</span></a></span><span>
</span><span id="line-593"></span><span>      </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot; &quot;</span></span><span>
</span><span id="line-594"></span><span>      </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; String -&gt; ShowS
forall a. Show a =&gt; Int -&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">11</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Addr# -&gt; String
</span><a href="../../ghc-prim/src/GHC.CString.html#unpackCString%23"><span class="hs-identifier hs-var">unpackCString#</span></a></span><span> </span><span class="annot"><span class="annottext">Addr#
</span><a href="#local-6989586621679484186"><span class="hs-identifier hs-var">q</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-595"></span><span>  </span><span class="annot"><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span id="local-6989586621679484185"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484185"><span class="hs-identifier hs-var">d</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#KindRepTypeLitD"><span class="hs-identifier hs-type">KindRepTypeLitD</span></a></span><span> </span><span id="local-6989586621679484184"><span class="annot"><span class="annottext">TypeLitSort
</span><a href="#local-6989586621679484184"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span id="local-6989586621679484183"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484183"><span class="hs-identifier hs-var">q</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; ShowS -&gt; ShowS
</span><a href="GHC.Show.html#showParen"><span class="hs-identifier hs-var">showParen</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679484185"><span class="hs-identifier hs-var">d</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><a href="../../ghc-prim/src/GHC.Classes.html#%3E"><span class="hs-operator hs-var">&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">10</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(ShowS -&gt; ShowS) -&gt; ShowS -&gt; ShowS
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-596"></span><span>    </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;KindRepTypeLitD &quot;</span></span><span>
</span><span id="line-597"></span><span>      </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; TypeLitSort -&gt; ShowS
forall a. Show a =&gt; Int -&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">11</span></span><span> </span><span class="annot"><span class="annottext">TypeLitSort
</span><a href="#local-6989586621679484184"><span class="hs-identifier hs-var">p</span></a></span><span>
</span><span id="line-598"></span><span>      </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
</span><a href="GHC.Show.html#showString"><span class="hs-identifier hs-var">showString</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot; &quot;</span></span><span>
</span><span id="line-599"></span><span>      </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; String -&gt; ShowS
forall a. Show a =&gt; Int -&gt; a -&gt; ShowS
</span><a href="GHC.Show.html#showsPrec"><span class="hs-identifier hs-var">showsPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">11</span></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679484183"><span class="hs-identifier hs-var">q</span></a></span><span>
</span><span id="line-600"></span><span>
</span><span id="line-601"></span><span class="hs-comment">-- | @since 4.11.0.0</span><span>
</span><span id="line-602"></span><span id="local-6989586621679484169"><span id="local-6989586621679484171"><span id="local-6989586621679484181"><span class="hs-keyword">deriving</span><span> </span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#RuntimeRep"><span class="hs-identifier hs-type">RuntimeRep</span></a></span></span></span></span><span>
</span><span id="line-603"></span><span>
</span><span id="line-604"></span><span class="hs-comment">-- | @since 4.11.0.0</span><span>
</span><span id="line-605"></span><span id="local-6989586621679484163"><span id="local-6989586621679484165"><span id="local-6989586621679484167"><span class="hs-keyword">deriving</span><span> </span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#VecCount"><span class="hs-identifier hs-type">VecCount</span></a></span></span></span></span><span>
</span><span id="line-606"></span><span>
</span><span id="line-607"></span><span class="hs-comment">-- | @since 4.11.0.0</span><span>
</span><span id="line-608"></span><span id="local-6989586621679484157"><span id="local-6989586621679484159"><span id="local-6989586621679484161"><span class="hs-keyword">deriving</span><span> </span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#VecElem"><span class="hs-identifier hs-type">VecElem</span></a></span></span></span></span><span>
</span><span id="line-609"></span><span>
</span><span id="line-610"></span><span class="hs-comment">-- | @since 4.11.0.0</span><span>
</span><span id="line-611"></span><span id="local-6989586621679484151"><span id="local-6989586621679484153"><span id="local-6989586621679484155"><span class="hs-keyword">deriving</span><span> </span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="../../ghc-prim/src/GHC.Types.html#TypeLitSort"><span class="hs-identifier hs-type">TypeLitSort</span></a></span></span></span></span><span>
</span><span id="line-612"></span></pre></body></html>